home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 July: Mac OS SDK / Dev.CD Jul 96 SDK / Dev.CD Jul 96 SDK2.toast / Development Kits (Disc 2) / QuickDraw GX / Programming Stuff / Sample Code / Printing Samples / Applications… / Exp. #9 (Inside Mac code) ƒ / Experiment no.9.c < prev    next >
Encoding:
Text File  |  1995-04-10  |  99.3 KB  |  3,884 lines  |  [TEXT/MPS ]
  1. // Experiment no.9
  2. //
  3. // Fast food code to check out various printing operations.
  4. //
  5. // This application contains routines that exercise nearly every part
  6. // of the QuickDraw GX printing API-- from handling the modified 'pdoc'
  7. // AppleEvents or properly servicing resume events, to adding a panel in
  8. // the "Page Setup" dialog or reading pages from a print file.  For the
  9. // most part, the code in this file is "ungroomed," but it's still useful
  10. // if you're trying to figure out how to take advantage of a particular
  11. // GX printing feature.
  12. //
  13. // All routines are listed in MPW's Mark menu, to make it easy to find the
  14. // code you're looking for.  For example, if you were trying to figure out
  15. // how to flatten a gxJob into your document's data fork, you'd go to the
  16. // routine listed as "MySaveJobInDataFork" in the Mark menu.
  17. //
  18. // If you don't see a marked routine that looks like what you're after, try
  19. // searching for the specific GX routine you're interested in.  Some routines
  20. // in this file, (like the saving routines), do a lot more than their names
  21. // may imply.  And, note that not all of the routines in this file are used
  22. // by the built application.  For example, none of the routines which get
  23. // format mappings are used, since they don't do anything visible.  Also,
  24. // there are 4 different print routines, 3 different open routines, and 2
  25. // different saving routines.  Only one of each is used by the built app.
  26. // If you change which ones are used, make sure that the opening and saving
  27. // routines agree with each other.  If the open routine expects to load a
  28. // saved job from a document's data fork, make sure that you aren't using
  29. // the routine which saves the job in the resource fork.
  30. //
  31. // This application has been thrown together very roughly, and is meant to
  32. // be a functioning "container" for the print code snippets that an application
  33. // developer is most likely to want.  The Inside Mac printing samples were
  34. // written in this application, so much of what appears here also appears in
  35. // Inside Mac.
  36. //
  37. //  4/26/93 - dmh - Thrown on the grill.
  38. //  9/10/93 - dmh - Updated for b2.
  39. //                    Neutralized some nasty bugs.
  40. // 12/18/93 - dmh - Updated for b3.
  41. //  2/03/94 - dmh - Made "square resolution" in
  42. //                    MyGetFormatDeviceResolution really square.
  43. //  3/22/94 - dmh - Added page range code (only enable for f2c1.2 or later!!).
  44. //  3/22/94 - dmh - Added "print one copy" code.
  45. //  3/22/94 - dmh - Added code to retrieve the formatting printers profiel and colorSpace.
  46. //    3/22/94 - dmh - Cleaned up(?) the Mark menu.
  47. //    3/22/94 - dmh - Updated for b4.
  48. //    3/24/94 - dmh - general cleanup and debugging.
  49. //    5/3/94     - dmh - …more of the same for f2.
  50. //    7/13/94 - dmh - Enabled printer resolution code.
  51. //    8/24/94 - dmh - Universalized.
  52. //
  53.  
  54. #include "Experiment no.9.h"
  55. #include "GXExceptions.h"
  56.  
  57. Boolean                gQuitting;            // Quitting?
  58. MyDocumentRec        myDocument;            // Our document.
  59. short                gAppResRefNum;        // Our application's resource file refNum.
  60. Boolean                gInPrintDialog;        // Currently in a print dialog?
  61. RgnHandle            gCursorRgn;            // Mouse region used by WaitNextEvent.
  62.  
  63. // This routine initializes everything for our application.
  64.  
  65. OSErr MyInitializeApp()
  66. {
  67.     OSErr        err = noErr;
  68.     Handle        menuBar;
  69.  
  70.     gQuitting = false;
  71.     gInPrintDialog = false;
  72.  
  73.     InitGraf((Ptr) &qd.thePort);
  74.     InitFonts();
  75.     InitWindows();
  76.     InitMenus();
  77.     TEInit();
  78.     InitDialogs(nil);
  79.     InitCursor();
  80.     FlushEvents(everyEvent, 0);
  81.  
  82.     gAppResRefNum = CurResFile();
  83.     gCursorRgn = NewRgn();
  84.  
  85.  
  86. // Create and set up the menubar.
  87.  
  88.     menuBar = GetNewMBar(r_menuBar);
  89.     SetMenuBar(menuBar);
  90.     DisposHandle(menuBar);
  91.     AddResMenu(GetMHandle(mApple), 'DRVR');
  92.     MyAdjustMenus();
  93.     DrawMenuBar();
  94.  
  95.     MyAEInstallation();
  96.  
  97.     return err;
  98. }
  99.  
  100.  
  101. // This routine installs our core AppleEvent handlers.
  102.  
  103. void MyAEInstallation()
  104. {
  105.     AEInstallEventHandler(kCoreEventClass,
  106.                           kAEOpenApplication,
  107.                           NewAEEventHandlerProc(MyHandleOAPP),
  108.                           0, false);
  109.  
  110.     AEInstallEventHandler(kCoreEventClass,
  111.                           kAEQuitApplication,
  112.                           NewAEEventHandlerProc(MyHandleQUIT),
  113.                           0, false);
  114.  
  115.     AEInstallEventHandler(kCoreEventClass,
  116.                           kAEOpenDocuments,
  117.                           NewAEEventHandlerProc(MyHandleODOC),
  118.                           0, false);
  119.  
  120.     AEInstallEventHandler(kCoreEventClass,
  121.                           kAEPrintDocuments,
  122.                           NewAEEventHandlerProc(MyHandlePDOC),
  123.                           0, false);
  124. }
  125.  
  126.  
  127. // This is the "open application" AppleEvent handler.  We don't
  128. // do anything more than check out the message.
  129.  
  130. pascal OSErr MyHandleOAPP(AppleEvent *theAppleEvent, AppleEvent *reply, long myRefCon)
  131. {
  132.  
  133. #pragma unused (reply, myRefCon)
  134.     
  135.     return MyCheckAEParams(theAppleEvent);
  136. }
  137.  
  138.  
  139. // This is the "quit" AppleEvent handler.  Set the gQuitting and
  140. // the event loop will do the rest.
  141.  
  142. pascal OSErr MyHandleQUIT(AppleEvent *theAppleEvent, AppleEvent *reply, long myRefCon)
  143. {
  144.     OSErr    err;
  145.  
  146. #pragma unused (reply, myRefCon)
  147.  
  148.     err = MyCheckAEParams(theAppleEvent);
  149.     if (err) return err;
  150.  
  151.     gQuitting = true;
  152.     return noErr;
  153. }
  154.  
  155.  
  156. // This is the "open document" AppleEvent handler.
  157.  
  158. pascal OSErr MyHandleODOC(AppleEvent *theAppleEvent, AppleEvent *reply, long myRefCon)
  159. {
  160.     OSErr            err;
  161.     AEDescList        docList;
  162.     FSSpec            myFSS;
  163.     AEKeyword        theKeyword;
  164.     DescType        typeCode;
  165.     Size            actualSize;
  166.  
  167. #pragma unused (reply, myRefCon)
  168.  
  169. // Get our doc list.
  170.  
  171.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeAEList, &docList);
  172.     if (err) return err;
  173.  
  174.     err = MyCheckAEParams(theAppleEvent);
  175.     if (err) return err;
  176.     
  177.  
  178. // Open the first entry in the document list.  This app only handles one
  179. // document at a time, so if we are trying to open a second, don't.
  180.  
  181.     err = AEGetNthPtr(&docList, 1, typeFSS, &theKeyword, &typeCode,
  182.                       (Ptr) &myFSS, sizeof(FSSpec), &actualSize);
  183.  
  184.     AEDisposeDesc(&docList);
  185.  
  186.     if (err || (FrontWindow() != nil)) return err;
  187.  
  188.     err = MyNewDocument("\pUntitled", &myDocument);
  189.  
  190.     if (err == noErr)
  191.     {
  192.         err = MyFSOpenDocument(&myDocument, &myFSS);
  193.  
  194.         if (err == noErr)
  195.             ShowWindow(myDocument.documentWindow);
  196.     }
  197.     
  198.     if (err != noErr) MyCloseDocument(&myDocument);
  199.  
  200.     return err;
  201. }
  202.  
  203.  
  204. // This is our "print document" AppleEvent handler.  It handles files printed
  205. // with the Finder's 'Print' command, as well as those dragged to desktop
  206. // printers.
  207.  
  208. pascal OSErr MyHandlePDOC(AppleEvent *theAppleEvent, AppleEvent *reply, long myRefCon)
  209. {
  210.     OSErr            err;
  211.     AEDescList        docList, dtpList;
  212.     FSSpec            myFSS, dtpFSS;
  213.     long            itemsInList, i;
  214.     AEKeyword        theKeyword;
  215.     DescType        typeCode;
  216.     Boolean            draggedToDTP = false;
  217.     Size            actualSize;
  218.  
  219. #pragma unused (reply, myRefCon)
  220.  
  221. // Get our document list.
  222.  
  223.     err = AEGetParamDesc(theAppleEvent, keyDirectObject, typeAEList, &docList);
  224.     if (err) return err;
  225.  
  226.  
  227. // See if the document was dragged to a desktop printer.
  228.  
  229.     err = AEGetAttributeDesc(theAppleEvent, keyOptionalKeywordAttr, typeAEList, &dtpList);
  230.     if (err == noErr) draggedToDTP = true;
  231.  
  232.  
  233. // Make sure we've accounted for all of the parameters passed, and count the
  234. // number of documents passed in.
  235.  
  236.     err = MyCheckAEParams(theAppleEvent);
  237.     if (err) return err;
  238.     
  239.     err = AECountItems(&docList, &itemsInList);
  240.     if (err) return err;
  241.  
  242.  
  243. // If we dragged to a desktop printer, get the name of the desktop printer
  244. // and then throw away the description list for it.
  245.  
  246.     if (draggedToDTP)
  247.     {
  248.         err = AEGetNthPtr(&dtpList, 1, typeFSS, &theKeyword, &typeCode,
  249.                           (Ptr) &dtpFSS, sizeof(FSSpec), &actualSize);
  250.     
  251.         AEDisposeDesc(&dtpList);
  252.     }
  253.  
  254. // For each entry in the document list, load it, print it, and close it.
  255.  
  256.     for (i = 1; i<= itemsInList, err == noErr; i++)
  257.     {
  258.         err = AEGetNthPtr(&docList, i, typeFSS, &theKeyword, &typeCode,
  259.                           (Ptr) &myFSS, sizeof(FSSpec), &actualSize);
  260.  
  261.         if (err == noErr)
  262.         {
  263.  
  264. // Load the document.
  265.  
  266.             err = MyNewDocument("\p", &myDocument);
  267.     
  268.             if (err == noErr)
  269.             {
  270.                 err = MyFSOpenDocument(&myDocument, &myFSS);
  271.  
  272.  
  273. // If we dragged to a desktop printer, select that as the output printer for
  274. // each job and only print one copy.  Otherwise, present the dialogs so that
  275. // the user can set things up.
  276.  
  277.                 if (err == noErr)
  278.                 {
  279.                     if (draggedToDTP)
  280.                     {
  281.                         GXSelectJobOutputPrinter(myDocument.documentJob, dtpFSS.name);
  282.                         err = MyPrintOneCopy(&myDocument);
  283.                     }
  284.                     else
  285.                         err = MyPrintDocument(&myDocument);
  286.                 }
  287.  
  288. // Close the document once it's printed.
  289.  
  290.                 MyCloseDocument(&myDocument);
  291.             }
  292.         }
  293.     }
  294.  
  295. // When we're all done throw away the document list.
  296.  
  297.     AEDisposeDesc(&docList);
  298.     return err;
  299. }
  300.  
  301.  
  302. // MyCheckAEParams - This routine is used to make sure we've
  303. // received all the parameters for an AppleEvent.  If so, we
  304. // return noErr, otherwise we indicate that the event wasn't
  305. // handled completely.
  306.  
  307. OSErr MyCheckAEParams(AppleEvent *theAppleEvent)
  308. {
  309.     OSErr        err;
  310.     DescType    typeCode;
  311.     Size        actualSize;
  312.     
  313.     err = AEGetAttributePtr(theAppleEvent, keyMissedKeywordAttr,
  314.                             typeWildCard, &typeCode, nil, 0, &actualSize);
  315.  
  316.     if (err == errAEDescNotFound) return noErr;
  317.     if (err == noErr) return errAEEventNotHandled;
  318.     
  319.     return err;
  320. }
  321.  
  322.  
  323. // Our event loop routine.
  324.  
  325. void MyEventLoop()
  326. {
  327.     Boolean        gotEvent;
  328.     EventRecord    event;
  329.     long        sleepTime;
  330.     
  331. // While not quitting, repeatedly get and dispatch events.  Sleep
  332. // an appropriate amount whether we're running in the foreground
  333. // or background.  Every time through we unload all our segments.
  334. // They won't actually be purged unless we need the memory.
  335.  
  336.     while (!gQuitting)
  337.     {
  338.         sleepTime = GetDblTime();
  339.         gotEvent = WaitNextEvent(everyEvent, &event, sleepTime, gCursorRgn);
  340.  
  341.         if (gotEvent)
  342.             MyDoEvent(&event);
  343.     }
  344. }
  345.  
  346.  
  347. // This routine handles whatever events come our way.
  348.  
  349. OSErr MyDoEvent(EventRecord *event)
  350. {
  351.     OSErr            err = noErr;
  352.     short            windowPart;
  353.     WindowPtr        window;
  354.     char            key;
  355.     Point            mountPoint;
  356.     Rect            dragRect;
  357.     RgnHandle        grayRgn;
  358.     WindowPtr        curWindow;
  359.     MyDocumentPtr    windowDoc;
  360.  
  361. // Set up a rectangle to use for dragging windows around.  Then,
  362. // handle any events.
  363.  
  364.     grayRgn = GetGrayRgn();
  365.     dragRect = (*grayRgn)->rgnBBox;
  366.     
  367.     switch (event->what)
  368.     {
  369.         case mouseDown:
  370.             windowPart = FindWindow(event->where, &window);
  371.             switch (windowPart)
  372.             {
  373.                 case inMenuBar:
  374.                     MyAdjustMenus();
  375.                     MyDoMenuCommand(MenuSelect(event->where));
  376.                     break;
  377.                 
  378.                 case inContent:
  379.                     if (window != FrontWindow())
  380.                         SelectWindow(window);
  381.                     break;
  382.                     
  383.                 case inDrag:
  384.                     DragWindow(window, event->where, &dragRect);
  385.                     break;
  386.                     
  387.                 case inGoAway:
  388.                     if (TrackGoAway(window, event->where))
  389.                     {
  390.                         err = MyCloseDocument(&myDocument);
  391.                         if (err)
  392.                         {
  393.                             Str255    pStr;
  394.                             
  395.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyCloseDocument!", err);
  396.                             MyDisplayInfo(pStr);
  397.                         }
  398.                     }
  399.                     break;
  400.             }
  401.             break;
  402.                     
  403.         case mouseMovedMessage:
  404.             DisposeRgn(gCursorRgn);    /* get rid of old region */
  405.             gCursorRgn = NewRgn();
  406.             SetRectRgn(gCursorRgn, -32768, -32768, 32766, 32766);
  407.             break;
  408.  
  409.         case keyDown:
  410.         case autoKey:
  411.             key = event->message & charCodeMask;
  412.             if (event->modifiers & cmdKey)
  413.                 if (event->what == keyDown)
  414.                 {
  415.                     MyAdjustMenus();
  416.                     MyDoMenuCommand(MenuKey(key));
  417.                 }
  418.             break;
  419.  
  420.         case updateEvt:
  421.             MyWindowUpdate((WindowPtr) event->message);
  422.             break;
  423.         
  424.         case diskEvt:
  425.             if ((event->message >> 16) != noErr)
  426.             {
  427.                 mountPoint.h = 100;
  428.                 mountPoint.v = 100;
  429.                 err = DIBadMount(mountPoint, event->message);
  430.             }
  431.             break;
  432.             
  433.         case osEvt:
  434.             switch ((event->message >> 24) & 0x0FF)
  435.             {
  436.                 case suspendResumeMessage:
  437.                     
  438.                     SetCursor(&qd.arrow);
  439.  
  440. // Suspend event:
  441. //
  442. // On a suspend event, just coerce the scrap. 
  443.                 
  444.                     if ((event->message & resumeFlag) == 0)
  445.                     {
  446.                         ZeroScrap();
  447.                         TEToScrap();
  448.                     }
  449.                     else
  450.                     {
  451.  
  452. // Resume event:
  453. //
  454. // On a resume event, we need to call UpdateJob on all of our documents'
  455. // jobs.  This is important because the user may have just changed
  456. // something which affects our jobs (like the size of the paper in the
  457. // printer).
  458. //
  459. // Since our application stores our document pointers in the refCon fields
  460. // of our documents' windows, we just loop through every one of our windows,
  461. // extract our document pointers and update the associated jobs.
  462.  
  463.                         if (event->message & convertClipboardFlag)
  464.                             TEFromScrap();
  465.  
  466.                         curWindow = FrontWindow();
  467.                         
  468.                         while (curWindow != nil)
  469.                         {
  470.                             if (((WindowPeek) curWindow)->windowKind == userKind)
  471.                             {
  472.                                 windowDoc = (MyDocumentPtr) GetWRefCon(curWindow);
  473.                                 GXUpdateJob(windowDoc->documentJob);
  474.                             }
  475.                             
  476.                             curWindow = (WindowPtr) ((WindowPeek) curWindow)->nextWindow;
  477.                         }
  478.                     }
  479.                     break;
  480.             }
  481.             break;
  482.                 
  483.         case kHighLevelEvent:
  484.             AEProcessAppleEvent(event);
  485.             break;
  486.     }
  487.     
  488.     return err;
  489. }
  490.  
  491.  
  492. // This routine handles enabling and disabling menu items as
  493. // required by the current context.
  494.  
  495. void MyAdjustMenus()
  496. {
  497.     WindowPtr        wp;
  498.     MenuHandle        fileMenu, editMenu, testMenu;
  499.     MyDocumentPtr    myDocument;
  500.     Boolean            docOpen, hasPages, onFirstPage, onLastPage, maxPages, neverSaved;
  501.     
  502.     if (gInPrintDialog) return;
  503.  
  504.     editMenu = GetMHandle(mEdit);
  505.     fileMenu = GetMHandle(mFile);
  506.     testMenu = GetMHandle(mTest);
  507.  
  508.     EnableItem(fileMenu,  kQuit);
  509.     EnableItem(testMenu,  kGetFileNumPages);
  510.  
  511.  
  512. // If we have a window open, we enable certain menu items,
  513. // otherwise we don't.
  514.  
  515.     wp = FrontWindow();
  516.  
  517.     if (((WindowPeek) wp)->windowKind != userKind)
  518.         wp = nil;
  519.  
  520.     docOpen = (wp != nil);
  521.  
  522.     if (!docOpen)
  523.     {
  524.         EnableItem(fileMenu,  kNew);
  525.         EnableItem(fileMenu,  kOpen);
  526.         DisableItem(fileMenu, kClose);
  527.         DisableItem(fileMenu, kSave);
  528.         DisableItem(fileMenu, kSaveAs);
  529.         DisableItem(fileMenu, kInsertPage);
  530.         DisableItem(fileMenu, kDeletePage);
  531.         DisableItem(fileMenu, kPrint);
  532.         DisableItem(fileMenu, kPrintOne);
  533.         DisableItem(fileMenu, kPageSetup);
  534.         DisableItem(fileMenu, kDocSetup);
  535.         EnableItem(fileMenu,  kQuit);
  536.         DisableItem(testMenu, kAheadPage);
  537.         DisableItem(testMenu, kBackPage);
  538.         DisableItem(testMenu, kAddForm);
  539.         DisableItem(testMenu, kRemoveForm);
  540.         DisableItem(testMenu, kApplyAboveFormat);
  541.         DisableItem(testMenu, kGetCopiesInfo);
  542.         DisableItem(testMenu, kShowJobPrinterInfo);
  543.         DisableItem(testMenu, kJobRefConTest);
  544.         DisableItem(testMenu, kReadFilePage);
  545.         DisableItem(testMenu, kGetPaperTypeName);
  546.         DisableItem(testMenu, kGetPaperDimensions);
  547.         DisableItem(testMenu, kGetAllPaperTypeInfo);
  548.         DisableItem(testMenu, kShowPrinterResolution);
  549.     }
  550.     else
  551.     {
  552.         DisableItem(fileMenu, kNew);
  553.         DisableItem(fileMenu, kOpen);
  554.         EnableItem(fileMenu,  kClose);
  555.         EnableItem(fileMenu,  kDocSetup);
  556.         EnableItem(testMenu,  kGetCopiesInfo);
  557.         EnableItem(testMenu,  kShowJobPrinterInfo);
  558.         EnableItem(testMenu,  kJobRefConTest);
  559.         EnableItem(testMenu,  kShowPrinterResolution);
  560.  
  561.         myDocument = (MyDocumentPtr) GetWRefCon(wp);
  562.     
  563.         hasPages = (myDocument->numPages != 0);
  564.         onFirstPage = (myDocument->curPage == 1);
  565.         onLastPage = (myDocument->curPage == myDocument->numPages);
  566.         maxPages = (myDocument->numPages == kMaxPages);
  567.         neverSaved = (myDocument->documentFSSpec.name[0] == 0);
  568.  
  569.         if (neverSaved || !hasPages)
  570.             DisableItem(fileMenu, kSave);
  571.         else
  572.             EnableItem(fileMenu, kSave);
  573.  
  574.         if (!maxPages)
  575.             EnableItem(fileMenu, kInsertPage);
  576.         else
  577.             DisableItem(fileMenu, kInsertPage);
  578.  
  579.         if (hasPages)
  580.         {
  581.             EnableItem(fileMenu, kSaveAs);
  582.             EnableItem(fileMenu, kDeletePage);
  583.             EnableItem(fileMenu, kPrintOne);
  584.             EnableItem(fileMenu, kPageSetup);
  585.             EnableItem(fileMenu, kPrint);
  586.             EnableItem(testMenu, kAddForm);
  587.             EnableItem(testMenu, kRemoveForm);
  588.             EnableItem(testMenu, kReadFilePage);
  589.             EnableItem(testMenu, kGetPaperTypeName);
  590.             EnableItem(testMenu, kGetPaperDimensions);
  591.             EnableItem(testMenu, kGetAllPaperTypeInfo);
  592.         }
  593.         else
  594.         {
  595.             DisableItem(fileMenu, kSaveAs);
  596.             DisableItem(fileMenu, kDeletePage);
  597.             DisableItem(fileMenu, kPrintOne);
  598.             DisableItem(fileMenu, kPageSetup);
  599.             DisableItem(fileMenu, kPrint);
  600.             DisableItem(testMenu, kAddForm);
  601.             DisableItem(testMenu, kRemoveForm);
  602.             DisableItem(testMenu, kReadFilePage);
  603.             DisableItem(testMenu, kGetPaperTypeName);
  604.             DisableItem(testMenu, kGetPaperDimensions);
  605.             DisableItem(testMenu, kGetAllPaperTypeInfo);
  606.         }
  607.  
  608.         if (hasPages && !onLastPage)
  609.             EnableItem(testMenu, kAheadPage);
  610.         else
  611.             DisableItem(testMenu, kAheadPage);
  612.  
  613.         if (hasPages && !onFirstPage)
  614.             EnableItem(testMenu, kBackPage);
  615.         else
  616.             DisableItem(testMenu, kBackPage);
  617.  
  618.         if (!onLastPage && (myDocument->numPages > 1))
  619.             EnableItem(testMenu, kApplyAboveFormat);
  620.         else
  621.             DisableItem(testMenu, kApplyAboveFormat);
  622.     }
  623. }
  624.  
  625.  
  626. // This routine handles our menu command dispatching.
  627.  
  628. void MyDoMenuCommand(long menuResult)
  629. {
  630.     short                menuID;
  631.     short                menuItem;
  632.     long                curPage;
  633.     Str255                daName;
  634.     OSErr                err = noErr;
  635.     WindowPtr            aWindow;
  636.     MyDocumentPtr        aDocument;
  637.  
  638. // Get the selected menu's ID, item and MenuHandle.
  639.  
  640.     menuID = menuResult >>16;
  641.     menuItem = menuResult & 0xFFFF;
  642.  
  643.     switch (menuID)
  644.     {
  645.         case mApple:
  646.             switch (menuItem)
  647.             {
  648.                 case kAbout:                // Display About box.
  649.                     MyDisplayAbout();
  650.                     break;
  651.                 
  652.                 default:                    // Handle DAs.
  653.                     
  654.                     GetItem(GetMHandle(mApple), menuItem, daName);
  655.                     OpenDeskAcc(daName);
  656.                     break;
  657.             }
  658.             break;
  659.             
  660.             case mFile:
  661.                 switch (menuItem)
  662.                 {
  663.                     case kOpen:                // Open a document.
  664.                         err = MyNewDocument("\pUntitled", &myDocument);
  665.                         if (!err)
  666.                         {
  667.                             err = MyOpenDocument(&myDocument);
  668.             //                err = MyOpenDocument2(&myDocument);
  669.                             if (err)
  670.                             {
  671.                                 Str255    pStr;
  672.                                 
  673.                                 MyCloseDocument(&myDocument);
  674.                                 pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyOpenDocument!", err);
  675.                                 MyDisplayInfo(pStr);
  676.                             }
  677.                             else
  678.                                 ShowWindow(myDocument.documentWindow);
  679.  
  680.                         }
  681.                         else
  682.                         {
  683.                             Str255    pStr;
  684.                             
  685.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyNewDocument!", err);
  686.                             MyDisplayInfo(pStr);
  687.                         }
  688.                         break;
  689.  
  690.                     case kNew:                // Create a new document.
  691.                         err = MyNewDocument("\pUntitled", &myDocument);
  692.                         if (err)
  693.                         {
  694.                             Str255    pStr;
  695.                             
  696.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyNewDocument!", err);
  697.                             MyDisplayInfo(pStr);
  698.                         }
  699.                         else
  700.                             ShowWindow(myDocument.documentWindow);
  701.                         break;
  702.                     
  703.                     case kClose:            // Close a document.
  704.                         err = MyCloseDocument(&myDocument);
  705.                         if (err)
  706.                         {
  707.                             Str255    pStr;
  708.                             
  709.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyCloseDocument!", err);
  710.                             MyDisplayInfo(pStr);
  711.                         }
  712.                         break;
  713.                     
  714.                     case kSave:                // Save a document to its original file.
  715.                         err = MySaveDocument(&myDocument, false);
  716.             //            err = MySaveDocument2(&myDocument, false);
  717.                         if (err)
  718.                         {
  719.                             Str255    pStr;
  720.                             
  721.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MySaveDocument!", err);
  722.                             MyDisplayInfo(pStr);
  723.                         }
  724.                         break;
  725.                     
  726.                     case kSaveAs:            // Save a document to a new file.
  727.                         err = MySaveDocument(&myDocument, true);
  728.             //            err = MySaveDocument2(&myDocument, true);
  729.                         if (err)
  730.                         {
  731.                             Str255    pStr;
  732.                             
  733.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MySaveDocument!", err);
  734.                             MyDisplayInfo(pStr);
  735.                         }
  736.                         break;
  737.  
  738.                     case kInsertPage:         // Insert a page.
  739.                         err = MyInsertPage(&myDocument);
  740.                         if (err)
  741.                         {
  742.                             Str255    pStr;
  743.                             
  744.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyInsertPage!", err);
  745.                             MyDisplayInfo(pStr);
  746.                         }
  747.                         break;
  748.  
  749.                     case kDeletePage:         // Delete a page.
  750.                         err = MyDeletePage(&myDocument);
  751.                         if (err)
  752.                         {
  753.                             Str255    pStr;
  754.                             
  755.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyDeletePage!", err);
  756.                             MyDisplayInfo(pStr);
  757.                         }
  758.                         break;
  759.  
  760.                     case kPageSetup:        // Do a Page Setup.
  761.  
  762.                         err = MyPageFormatDialog(&myDocument);
  763.                         if (err)
  764.                         {
  765.                             Str255    pStr;
  766.                             
  767.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyPageFormatDialog!", err);
  768.                             MyDisplayInfo(pStr);
  769.                         }
  770.                         break;
  771.                                                 
  772.                     case kDocSetup:            // Do Document Setup.
  773.                         err = MyFormatDialog(&myDocument);
  774.                         if (err)
  775.                         {
  776.                             Str255    pStr;
  777.                             
  778.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyFormatDialog!", err);
  779.                             MyDisplayInfo(pStr);
  780.                         }
  781.                         break;
  782.  
  783.                     case kPrintOne:            // Print one.
  784.                         err = MyPrintOneCopy(&myDocument);
  785.                         if (err)
  786.                         {
  787.                             Str255    pStr;
  788.                             
  789.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyPrintOneCopy!", err);
  790.                             MyDisplayInfo(pStr);
  791.                         }
  792.                         break;
  793.  
  794.  
  795.                     case kPrint:            // Print a document.
  796.                         err = MyPrintDialog(&myDocument);
  797.                         if (err)
  798.                         {
  799.                             Str255    pStr;
  800.                             
  801.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyPrintDialog!", err);
  802.                             MyDisplayInfo(pStr);
  803.                         }
  804.                         break;
  805.  
  806.                     case kQuit:                // Quit the application.
  807.                         gQuitting = true;
  808.                         while (aWindow = FrontWindow())
  809.                         {
  810.                             aDocument = (MyDocumentPtr) GetWRefCon(aWindow);
  811.                             MyCloseDocument(&myDocument);
  812.                         }
  813.  
  814.                         break;
  815.                 }
  816.                 break;
  817.  
  818.         case mTest:
  819.             switch (menuItem)
  820.             {
  821.                 case kAheadPage:            // Go ahead a page.
  822.                     MyAheadPage(FrontWindow());
  823.                     break;
  824.                 
  825.                 case kBackPage:                // Go back a page.
  826.                     MyBackPage(FrontWindow());
  827.                     break;
  828.                 
  829.                 case kApplyAboveFormat:        // Apply format from page above this one (wrap to page 1).
  830.                     curPage = myDocument.curPage;
  831.  
  832.                     if (curPage == myDocument.numPages)
  833.                         curPage = 0;
  834.  
  835.                     err = MyApplyPageFormat(&myDocument, myDocument.pageFormat[curPage]);
  836.                     if (err)
  837.                     {
  838.                         Str255    pStr;
  839.                         
  840.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyApplyPageFormat!", err);
  841.                         MyDisplayInfo(pStr);
  842.                     }
  843.                     break;
  844.                 
  845.                 case kAddForm:                // Add form to format.
  846.                     err = MyAddFormatForm(&myDocument);
  847.                     if (err)
  848.                     {
  849.                         Str255    pStr;
  850.                         
  851.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyAddFormatForm!", err);
  852.                         MyDisplayInfo(pStr);
  853.                     }
  854.                     break;
  855.                 
  856.                 case kRemoveForm:            // Remove form from format.
  857.                     err = MyRemoveFormatForm(&myDocument);
  858.                     if (err)
  859.                     {
  860.                         Str255    pStr;
  861.                         
  862.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyRemoveFormatForm!", err);
  863.                         MyDisplayInfo(pStr);
  864.                     }
  865.                     break;
  866.                     
  867.                 case kGetCopiesInfo:            // Get the number of copies stored in a job.
  868.                     {
  869.                         short    numCopies;
  870.  
  871.                         err = MyGetJobCopies(&myDocument, &numCopies);
  872.                         if (err)
  873.                         {
  874.                             Str255    pStr;
  875.                             
  876.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyGetJobCopies!", err);
  877.                             MyDisplayInfo(pStr);
  878.                         }
  879.                         else
  880.                         {
  881.                             Str255    pStr;
  882.                             
  883.                             pStr[0] = sprintf(&pStr[1], "%s %i %s",
  884.                                               "This job will print",
  885.                                               numCopies, "copies.");
  886.                             MyDisplayInfo(pStr);
  887.                         }
  888.                     }
  889.                     break;
  890.                     
  891.                 case kGetFileNumPages:        // Get the number of pages stored in a spool file.
  892.                     {
  893.                         long                numPages;
  894.                         StandardFileReply    sfReply;
  895.                         SFTypeList            typeList;
  896.  
  897.                         typeList[0] = kPrintFileType1;
  898.                         typeList[1] = kPrintFileType2;
  899.                         typeList[2] = kPrintFileType3;
  900.                         typeList[3] = kPrintFileType4;
  901.  
  902.                         StandardGetFile(nil, 4, typeList, &sfReply);
  903.  
  904.                         if (!sfReply.sfGood) break;
  905.  
  906.                         err = MyGetPrintFilePages(&sfReply.sfFile, &numPages);
  907.                         if (err)
  908.                         {
  909.                             Str255    pStr;
  910.                             
  911.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyGetPrintFilePages!", err);
  912.                             MyDisplayInfo(pStr);
  913.                         }
  914.                         else
  915.                         {
  916.                             Str255    pStr;
  917.                             
  918.                             pStr[0] = sprintf(&pStr[1], "%s %i %s",
  919.                                               "This file contains",
  920.                                               numPages, "pages.");
  921.                             MyDisplayInfo(pStr);
  922.                         }
  923.                     }
  924.                     break;
  925.                     
  926.                 case kShowJobPrinterInfo:        // Show the destination printer name, etc.
  927.                     err = MyShowJobPrinterInfo(&myDocument);
  928.                     if (err)
  929.                     {
  930.                         Str255    pStr;
  931.                         
  932.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyShowJobPrinterInfo!", err);
  933.                         MyDisplayInfo(pStr);
  934.                     }
  935.                     break;
  936.                     
  937.                 case kJobRefConTest:        // Perform our Set/GXGetJobRefCon test.
  938.                     err = MyJobRefConTest(&myDocument);
  939.  
  940.                     if (err)
  941.                     {
  942.                         Str255    pStr;
  943.                         
  944.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyJobRefConTest!", err);
  945.                         MyDisplayInfo(pStr);
  946.                     }
  947.                     break;
  948.                     
  949.                 case kReadFilePage:        // Replace the current page with page 1 from a print file.
  950.                     {
  951.                         StandardFileReply    sfReply;
  952.                         SFTypeList            typeList;
  953.                         gxShape                pgShape;
  954.                         gxFormat            pgFormat;
  955.                         
  956.                         typeList[0] = kPrintFileType1;
  957.                         typeList[1] = kPrintFileType2;
  958.                         typeList[2] = kPrintFileType3;
  959.                         typeList[3] = kPrintFileType4;
  960.  
  961.                         StandardGetFile(nil, 4, typeList, &sfReply);
  962.  
  963.                         if (!sfReply.sfGood) break;
  964.  
  965.                         err = MyReadPrintFilePage(&myDocument, &sfReply.sfFile, 1, &pgFormat, &pgShape);
  966.                         if (err)
  967.                         {
  968.                             Str255    pStr;
  969.                             
  970.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyReadPrintFilePage!", err);
  971.                             MyDisplayInfo(pStr);
  972.                         }
  973.                         else
  974.                         {
  975.                             if (myDocument.numPages != 0)
  976.                             {
  977.                                 if (myDocument.pageFormat[myDocument.curPage -1] != nil)
  978.                                     GXDisposeFormat(myDocument.pageFormat[myDocument.curPage -1]);
  979.     
  980.                                 GXDisposeShape(myDocument.documentPage[myDocument.curPage -1]);
  981.                             }
  982.             
  983.                             myDocument.pageFormat[myDocument.curPage -1] = pgFormat;
  984.                             myDocument.documentPage[myDocument.curPage -1] = pgShape;
  985.                             if (myDocument.numPages == 0)
  986.                             {
  987.                                 myDocument.curPage =
  988.                                 myDocument.numPages = 1;
  989.                             }
  990.                             
  991.                             InvalRect(&(myDocument.documentWindow)->portRect);
  992.                         }
  993.                     }
  994.                     break;
  995.                     
  996.                 case kGetPaperTypeName:        // Gets the current page's paper type.
  997.                     {
  998.                         Str255    pStr;
  999.  
  1000.                         err = MyGetPaperTypeName(&myDocument, pStr);
  1001.                         if (err)
  1002.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyGetPaperTypeName!", err);
  1003.                         
  1004.                         MyDisplayInfo(pStr);
  1005.                         break;
  1006.                     }
  1007.                     
  1008.                 case kGetPaperDimensions:        // Gets the current page's paper type dimensions.
  1009.                     {
  1010.                         gxRectangle    pageBounds, paperBounds;
  1011.                         Str255        pStr;
  1012.  
  1013.                         err = MyGetPaperTypeDims(&myDocument, &pageBounds, &paperBounds);
  1014.  
  1015.                         if (err)
  1016.                             pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyGetPaperTypeDims!", err);
  1017.                         else
  1018.                             pStr[0] = sprintf(&pStr[1], "%s %i, %i, %i, %i.  %s %i, %i, %i, %i.",
  1019.                                               "pageBounds =",
  1020.                                               pageBounds.top >>16,
  1021.                                               pageBounds.left >>16,
  1022.                                               pageBounds.bottom >>16,
  1023.                                               pageBounds.right >>16,
  1024.                                               "paperBounds =",
  1025.                                               paperBounds.top >>16,
  1026.                                               paperBounds.left >>16,
  1027.                                               paperBounds.bottom >>16,
  1028.                                               paperBounds.right >>16);
  1029.  
  1030.                         MyDisplayInfo(pStr);
  1031.                         break;
  1032.                     }
  1033.                     
  1034.                 case kGetAllPaperTypeInfo:        // Gets all names and dimensions of a job's paperType.
  1035.                     err = MyListAllPaperTypes(&myDocument);
  1036.  
  1037.                     if (err)
  1038.                     {
  1039.                         Str255    pStr;
  1040.                         
  1041.                         pStr[0] = sprintf(&pStr[1], "%s --> %i", "Error in MyListAllPaperTypes!", err);
  1042.                         MyDisplayInfo(pStr);
  1043.                     }
  1044.                     break;
  1045.                     
  1046.                 case kShowPrinterResolution:
  1047.                     MyShowJobPrinterResolution(&myDocument);
  1048.                     break;
  1049.                     
  1050.                 }
  1051.             break;
  1052.     }
  1053.  
  1054.     HiliteMenu(0);
  1055. }
  1056.  
  1057.  
  1058. // MyWindowUpdate updates one of our windows.
  1059.  
  1060. void MyWindowUpdate(WindowPtr whichWindow)
  1061. {
  1062.     MyDocumentPtr    myDocument;
  1063.     GrafPtr            oldPort;
  1064.  
  1065.     if (((WindowPeek) whichWindow)->windowKind != userKind) return;
  1066.  
  1067.     GetPort(&oldPort);
  1068.     SetPort(whichWindow);
  1069.     
  1070.     BeginUpdate(whichWindow);
  1071.  
  1072.     myDocument = (MyDocumentPtr) GetWRefCon(whichWindow);
  1073.     EraseRect(&whichWindow->portRect);
  1074.  
  1075.     if (myDocument->numPages > 0)
  1076.         GXDrawShape(myDocument->documentPage[myDocument->curPage -1]);
  1077.  
  1078.     EndUpdate(whichWindow);
  1079.     SetPort(oldPort);
  1080. }
  1081.  
  1082.  
  1083. // This routine handles enabling and disabling menu items
  1084. // when we're putting up, or tearing down print dialogs.
  1085.  
  1086. void MyAdjustMenusForPrintDialogs(Boolean dialogGoingUp)
  1087. {
  1088.     MenuHandle    fileMenu, editMenu, testMenu;
  1089.  
  1090.     editMenu = GetMHandle(mEdit);
  1091.     fileMenu = GetMHandle(mFile);
  1092.     testMenu = GetMHandle(mTest);
  1093.  
  1094.     if (dialogGoingUp)
  1095.     {
  1096.         DisableItem(fileMenu, 0);
  1097.         DisableItem(testMenu, 0);
  1098.         
  1099.         HiliteMenu(0);
  1100.         DrawMenuBar();
  1101.     }
  1102.     else
  1103.     {
  1104.         DisableItem(editMenu, 0);
  1105.         EnableItem(fileMenu,  0);
  1106.         EnableItem(testMenu,  0);
  1107.         DrawMenuBar();
  1108.     }
  1109.  
  1110.     gInPrintDialog = dialogGoingUp;
  1111. }
  1112.  
  1113.  
  1114. // Override for GXPrintingEvent.  It allows us to update our windows
  1115. // when the moveable modal printing dialogs are moved.
  1116.  
  1117. OSErr MyPrintingEventOverride(EventRecord *anEvent, Boolean filterEvent)
  1118. {
  1119.     OSErr    err = noErr;
  1120.  
  1121. /*    Handle events in whatever way is appropriate.  MyDoEvent is our
  1122.     generic event handler.  We don't pass it events that it shouldn't
  1123.     handle while print dialogs are displayed. */
  1124.  
  1125.     if (!filterEvent)
  1126.         switch (anEvent->what)
  1127.         {
  1128.             case mouseDown:
  1129.             case keyDown:
  1130.             case autoKey:
  1131.                 break;
  1132.             
  1133.             default:
  1134.                 err = MyDoEvent(anEvent);
  1135.         }
  1136.  
  1137.     return err;
  1138. }
  1139.  
  1140.  
  1141. // Change a document's format by using the job format dialog.
  1142.  
  1143. OSErr MyFormatDialog(MyDocumentPtr myDocument)
  1144. {
  1145.     OSErr                    err;
  1146.     gxDialogResult            result;
  1147.     gxEditMenuRecord        editMenuRec;
  1148.  
  1149. // Fill in the location of the application’s Edit menu items and enable
  1150. // the appropriate menu items. 
  1151.  
  1152.     editMenuRec.editMenuID    = mEdit;
  1153.     editMenuRec.cutItem        = kCut;
  1154.     editMenuRec.copyItem    = kCopy;
  1155.     editMenuRec.pasteItem    = kPaste;
  1156.     editMenuRec.clearItem    = kClear;
  1157.     editMenuRec.undoItem    = kUndo;
  1158.  
  1159.     MyAdjustMenusForPrintDialogs(true);
  1160.  
  1161. // Display the Document Setup dialog box.
  1162.  
  1163.     result = GXJobDefaultFormatDialog(myDocument->documentJob, &editMenuRec);
  1164.     err = GXGetJobError(myDocument->documentJob);
  1165.  
  1166. // If the user chooses "Format" and no errors occurred, we perform any
  1167. // document formatting that we need to.
  1168.  
  1169.     if ((err == noErr) && (result == gxOKSelected))
  1170.     {
  1171.         /* 
  1172.             Place your application-specific code here if you need
  1173.             to repaginate the document.
  1174.             .
  1175.             .
  1176.             .
  1177.         */
  1178.     }
  1179.     
  1180.     MyAdjustMenusForPrintDialogs(false);
  1181.  
  1182.     return err;
  1183. }
  1184.     
  1185.  
  1186. // Change the current page's format by using the Format dialog.
  1187.  
  1188. OSErr MyPageFormatDialog(MyDocumentPtr myDocument)
  1189. {
  1190.     OSErr                    err = noErr;
  1191.     gxDialogResult            result;
  1192.     gxEditMenuRecord        editMenuRec;
  1193.     gxFormat                pageFormat;
  1194.     Boolean                    newPgFormat = false;
  1195.  
  1196. // Fill in the location of the application’s Edit menu items and enable
  1197. // the appropriate menu items. 
  1198.  
  1199.     editMenuRec.editMenuID    = mEdit;
  1200.     editMenuRec.cutItem        = kCut;
  1201.     editMenuRec.copyItem    = kCopy;
  1202.     editMenuRec.pasteItem    = kPaste;
  1203.     editMenuRec.clearItem    = kClear;
  1204.     editMenuRec.undoItem    = kUndo;
  1205.  
  1206.     MyAdjustMenusForPrintDialogs(true);
  1207.     
  1208. // If we have an existing page format, we'll modify that.  Otherwise, we'll
  1209. // need to create a new format and use that.
  1210.  
  1211.     if (myDocument->pageFormat[myDocument->curPage -1] != nil)
  1212.         pageFormat = myDocument->pageFormat[myDocument->curPage -1];
  1213.     else
  1214.     {
  1215.         pageFormat = GXNewFormat(myDocument->documentJob);
  1216.         newPgFormat = true;
  1217.         err = GXGetJobError(myDocument->documentJob);
  1218.     }
  1219.  
  1220. // If no errors, display the format dialog.
  1221.  
  1222.     if (err == noErr)
  1223.     {
  1224.         result = GXFormatDialog(pageFormat, &editMenuRec, nil);
  1225.  
  1226.         switch (result)
  1227.         {
  1228.  
  1229. // If the user selected "Revert", use the default job format with this page.
  1230. // For our application, we indicate this by storing nil for the format
  1231. // reference in our structure.
  1232. //
  1233. // If "OK" was selected, store the new format with this page.
  1234.  
  1235.             case gxRevertSelected:
  1236.                 GXDisposeFormat(pageFormat);
  1237.                 pageFormat = nil;
  1238.  
  1239.             case gxOKSelected:
  1240.             myDocument->pageFormat[myDocument->curPage -1] = pageFormat;
  1241.  
  1242.             /* 
  1243.                 Place code here if your application needs to 
  1244.                 adjust the document based on the new page format.
  1245.                 .
  1246.                 .
  1247.                 .
  1248.                 
  1249.             */
  1250.                 break;
  1251.  
  1252.  
  1253. // If the user selected "Cancel", dispose of our cloned copy of the default
  1254. // job format, if we made one.
  1255.  
  1256.             case gxCancelSelected:
  1257.                 if (newPgFormat) GXDisposeFormat(pageFormat);
  1258.                 break;
  1259.         }
  1260.     }
  1261.  
  1262.     MyAdjustMenusForPrintDialogs(false);
  1263.  
  1264.     return err;
  1265. }
  1266.  
  1267.  
  1268. // Change the current page's format to the passed format.
  1269.  
  1270. OSErr MyApplyPageFormat(MyDocumentPtr myDocument, gxFormat aNewFormat)
  1271. {
  1272.     OSErr        err = noErr;
  1273.     gxFormat    pageFormat;
  1274.  
  1275. // If the passed format is not the same as the job format (or nil), clone it so
  1276. // it can be shared by different pages.  If it is the job format (or nil), set
  1277. // our reference to nil, which tells our application to use the job format for
  1278. // this page.
  1279.  
  1280.     if ((aNewFormat != nil) && (aNewFormat != GXGetJobFormat(myDocument->documentJob, 1)))
  1281.     {
  1282.         pageFormat = GXCloneFormat(aNewFormat);
  1283.         err = GXGetJobError(myDocument->documentJob);
  1284.     }
  1285.     else
  1286.         pageFormat = nil;
  1287.  
  1288.  
  1289. // If there are no errors, dispose of the old page format and store
  1290. // the new one.  Reformat the page, if need be.
  1291.  
  1292.     if (err == noErr)
  1293.     {
  1294.         if (myDocument->pageFormat[myDocument->curPage -1] != nil)
  1295.             GXDisposeFormat(myDocument->pageFormat[myDocument->curPage -1]);
  1296.  
  1297.         myDocument->pageFormat[myDocument->curPage -1] = pageFormat;
  1298.  
  1299.         /* 
  1300.             Place code here if your application needs to 
  1301.             adjust the document based on the new page format.
  1302.             .
  1303.             .
  1304.             .
  1305.             
  1306.         */
  1307.     }
  1308.     
  1309.     return err;
  1310. }
  1311.  
  1312.  
  1313. // This is our override for FormatDialog.  We add a panel and forward the message
  1314. // so that other handlers are called.
  1315.  
  1316. OSErr MyFormatDialogOverride(gxFormat aFormat, StringPtr title, gxDialogResult *result)
  1317. {
  1318.     OSErr    err;
  1319.     
  1320.     err = MySetUpByPagePanel(aFormat, GXGetMessageHandlerResFile());
  1321.     if (!err) err = Forward_GXFormatDialog(aFormat, title, result);
  1322.  
  1323.     return err;
  1324. }
  1325.  
  1326.  
  1327. // This is the routine which adds our panel to the format dialog.
  1328.  
  1329. OSErr MySetUpByPagePanel(gxFormat aFormat, short ourResFile)
  1330. {
  1331.     OSErr                        err;
  1332.     Collection                    fmtCollection;
  1333.     gxPanelSetupRecord            panelInfo;
  1334.     MyKindaCollectionRec        mySettings;
  1335.  
  1336. // We first get the format collection, and then look for one of our collection
  1337. // items in it.  This collection item is where our default settings will be stored.
  1338.  
  1339.     fmtCollection = GXGetFormatCollection(aFormat);
  1340.  
  1341.     err = GetCollectionItem(fmtCollection, kMyKindaCollectionType,
  1342.                               kMyKindaCollectionTagID, nil, &mySettings);
  1343.  
  1344. // If our collection item does not exist, create one and add it to the format
  1345. // collection so that we have default settings for our dialog panel.
  1346.  
  1347.     if (err == collectionItemNotFoundErr)
  1348.     {
  1349.         mySettings.isTurnedOn    = false;
  1350.         mySettings.dayOfWeek    = 7;
  1351.  
  1352.         err = AddCollectionItem(fmtCollection, kMyKindaCollectionType,
  1353.                                 kMyKindaCollectionTagID, sizeof(MyKindaCollectionRec),
  1354.                                 &mySettings);
  1355.     }
  1356.  
  1357. // Now, install our panel.  We need to specify the type of panel it is, the resource ID
  1358. // of our 'panl' resource, and in which resource file it's located.  The refCon field is
  1359. // for our own use, although we don't use it here.
  1360.  
  1361.     if (!err)
  1362.     {
  1363.         panelInfo.panelKind            = gxApplicationPanel;
  1364.         panelInfo.panelResId        = r_MyFormatPanelResID;
  1365.         panelInfo.resourceRefNum    = ourResFile;
  1366.         panelInfo.refCon            = 0;
  1367.         
  1368.         err = GXSetupDialogPanel(&panelInfo);
  1369.     }
  1370.  
  1371.     return err;
  1372. }
  1373.  
  1374.  
  1375. OSErr MyPrintDocument(MyDocumentPtr myDocument)
  1376. {
  1377. //    return    MyPrintDocument1(myDocument);    // printpage w/o formats
  1378. //    return    MyPrintDocument2(myDocument);    // startpage/finishpage w/o formats
  1379.     return    MyPrintDocument3(myDocument);    // printpage & by-page formats
  1380. //    return    MyPrintDocument4(myDocument);    // printpage & poll after indiv. functions
  1381. }
  1382.  
  1383.  
  1384. // This routine prints the pages of a document using GXPrintPage.  You would
  1385. // use this function if your application stored the data for each page as
  1386. // single shapes.
  1387.  
  1388. OSErr MyPrintDocument1(MyDocumentPtr myDocument)
  1389. {
  1390.     OSErr    err;
  1391.     long    firstPage, lastPage, numPages, pg;
  1392.     
  1393. // Determine which pages the user selected to print.  If the user specifies
  1394. // a page range that is greater than the actual number of pages in the
  1395. // document, only print those pages that are actually in the document. 
  1396.  
  1397.     GXGetJobPageRange(myDocument->documentJob, &firstPage, &lastPage);
  1398.     
  1399.     if (lastPage > myDocument->numPages)
  1400.         lastPage = myDocument->numPages;
  1401.  
  1402. // Calculate the total number of pages to print, and begin printing if there
  1403. // are no errors.
  1404.  
  1405.     numPages = lastPage - firstPage +1;
  1406.     err = GXGetJobError(myDocument->documentJob);
  1407.  
  1408.     if (err == noErr)
  1409.     {
  1410.  
  1411. // Start printing.
  1412.  
  1413.         GXStartJob(myDocument->documentJob, myDocument->documentTitle, numPages);
  1414.         err = GXGetJobError(myDocument->documentJob);
  1415.  
  1416. // Loop through each page of the document, calling GXPrintPage for each page's
  1417. // shape.  In this example, we use the job's default format to print each page.
  1418. // After sending each page, check for errors so that we can exit the loop
  1419. // if any occur.
  1420.  
  1421.         if (err == noErr)
  1422.         {
  1423.             for (pg = firstPage; (err == noErr) && (pg <= lastPage); pg++)
  1424.             {
  1425.                 GXPrintPage(myDocument->documentJob,
  1426.                             pg,
  1427.                             GXGetJobFormat(myDocument->documentJob, 1),
  1428.                             myDocument->documentPage[pg -1]);                                
  1429.     
  1430.                 err = GXGetJobError(myDocument->documentJob);
  1431.             }
  1432.  
  1433. // Finish printing.
  1434.  
  1435.             GXFinishJob(myDocument->documentJob);
  1436.             err = GXGetJobError(myDocument->documentJob);
  1437.         }
  1438.     }
  1439.  
  1440.     return err;
  1441. }
  1442.  
  1443.  
  1444. // This routine prints the pages of a document using GXStartPage, GXDrawShape, and
  1445. // GXFinishPage.  You would normally use this function if your application stored
  1446. // the data for each page as multiple shapes.
  1447.  
  1448. OSErr MyPrintDocument2(MyDocumentPtr myDocument)
  1449. {
  1450.     OSErr    err;
  1451.     long    firstPage, lastPage, numPages, pg;
  1452.     
  1453. // Determine which pages the user selected to print.  If the user specifies
  1454. // a page range that is greater than the actual number of pages in the
  1455. // document, only print those pages that are actually in the document. 
  1456.  
  1457.     GXGetJobPageRange(myDocument->documentJob, &firstPage, &lastPage);
  1458.     
  1459.     if (lastPage > myDocument->numPages)
  1460.         lastPage = myDocument->numPages;
  1461.  
  1462. // Calculate the total number of pages to print, and begin printing if there
  1463. // are no errors.
  1464.  
  1465.     numPages = lastPage - firstPage +1;
  1466.     err = GXGetJobError(myDocument->documentJob);
  1467.  
  1468.     if (err == noErr)
  1469.     {
  1470.  
  1471. // Start printing.
  1472.  
  1473.         GXStartJob(myDocument->documentJob, myDocument->documentTitle, numPages);
  1474.         err = GXGetJobError(myDocument->documentJob);
  1475.  
  1476. // For each page we print, call GXStartPage, draw, and call GXFinishPage.  In this
  1477. // example, we use the job's default format, the document's viewPort, and draw
  1478. // only a single shape for each page.
  1479.  
  1480.         if (err == noErr)
  1481.         {
  1482.             for (pg = firstPage; (err == noErr) && (pg <= lastPage); pg++)
  1483.             {
  1484. // Start the page.
  1485.  
  1486.                 GXStartPage(myDocument->documentJob,
  1487.                           pg,
  1488.                           GXGetJobFormat(myDocument->documentJob, 1),
  1489.                           1,
  1490.                           &myDocument->documentViewPort);                                
  1491.     
  1492.                 err = GXGetJobError(myDocument->documentJob);
  1493.             
  1494. // If there were no errors, draw the data for the page.
  1495.  
  1496.                 if (err == noErr)
  1497.                 {
  1498.                     GXDrawShape(myDocument->documentPage[pg -1]);
  1499.                     err = (OSErr) GXGetGraphicsError(nil);
  1500.                 }
  1501.                     
  1502. // Finish the page, even if there were errors.
  1503.  
  1504.                 GXFinishPage(myDocument->documentJob);
  1505.             }
  1506.  
  1507. // Finish printing.
  1508.  
  1509.             GXFinishJob(myDocument->documentJob);
  1510.             err = GXGetJobError(myDocument->documentJob);
  1511.         }
  1512.     }
  1513.  
  1514.     return err;
  1515. }
  1516.  
  1517.  
  1518. // This routine prints the pages of a document using GXPrintPage.  It also
  1519. // prints using the stored page formats for this document.  You would use
  1520. // this function if your application stored the data for each page as
  1521. // single shapes.
  1522.  
  1523. OSErr MyPrintDocument3(MyDocumentPtr myDocument)
  1524. {
  1525.     OSErr        err;
  1526.     long        firstPage, lastPage, numPages, pg;
  1527.     gxFormat    pgFormat;
  1528.     
  1529. // Determine which pages the user selected to print.  If the user specifies
  1530. // a page range that is greater than the actual number of pages in the
  1531. // document, only print those pages that are actually in the document. 
  1532.  
  1533.     GXGetJobPageRange(myDocument->documentJob, &firstPage, &lastPage);
  1534.     
  1535.     if (lastPage > myDocument->numPages)
  1536.         lastPage = myDocument->numPages;
  1537.  
  1538. // Calculate the total number of pages to print, and begin printing if there
  1539. // are no errors.
  1540.  
  1541.     numPages = lastPage - firstPage +1;
  1542.     err = GXGetJobError(myDocument->documentJob);
  1543.  
  1544.     if (err == noErr)
  1545.     {
  1546.  
  1547. // Start printing.
  1548.  
  1549.         GXStartJob(myDocument->documentJob, myDocument->documentTitle, numPages);
  1550.         err = GXGetJobError(myDocument->documentJob);
  1551.         
  1552.         
  1553. // Loop through each page of the document, calling GXPrintPage for each page's
  1554. // shape.  In this example, we use the job's default format to print each
  1555. // page.  After sending each page, check for errors so that we can exit the
  1556. // loop if any occur.
  1557.  
  1558.         if (err == noErr)
  1559.         {
  1560.             for (pg = firstPage; (err == noErr) && (pg <= lastPage); pg++)
  1561.             {
  1562.                 pgFormat = myDocument->pageFormat[pg -1];
  1563.                 
  1564.                 if (pgFormat == nil)
  1565.                     pgFormat = GXGetJobFormat(myDocument->documentJob, 1);
  1566.                 
  1567.                 GXPrintPage(myDocument->documentJob,
  1568.                             pg,
  1569.                             pgFormat,
  1570.                             myDocument->documentPage[pg -1]);                                
  1571.     
  1572.                 err = GXGetJobError(myDocument->documentJob);
  1573.             }
  1574.  
  1575. // Finish printing.
  1576.  
  1577.             GXFinishJob(myDocument->documentJob);
  1578.             err = GXGetJobError(myDocument->documentJob);
  1579.         }
  1580.     }
  1581.  
  1582.     return err;
  1583. }
  1584.  
  1585.  
  1586. // This routine prints the pages of a document using GXPrintPage.  You would
  1587. // use this function if your application stored the data for each page as
  1588. // single shapes.
  1589.  
  1590. OSErr MyPrintDocument4(MyDocumentPtr myDocument)
  1591. {
  1592.     OSErr    err;
  1593.     long    firstPage, lastPage, numPages, pg;
  1594.     
  1595. // Determine which pages the user selected to print.  If the user specifies
  1596. // a page range that is greater than the actual number of pages in the
  1597. // document, only print those pages that are actually in the document. 
  1598.  
  1599.     GXGetJobPageRange(myDocument->documentJob, &firstPage, &lastPage);
  1600.     err = GXGetJobError(myDocument->documentJob);
  1601.  
  1602.     if (err == noErr)
  1603.     {
  1604.         if (lastPage > myDocument->numPages)
  1605.             lastPage = myDocument->numPages;
  1606.  
  1607. // Calculate the total number of pages to print, and begin printing if there
  1608. // are no errors.
  1609.  
  1610.         numPages = lastPage - firstPage + 1;
  1611.     
  1612.         GXStartJob(myDocument->documentJob, myDocument->documentTitle, numPages);
  1613.         err = GXGetJobError(myDocument->documentJob);
  1614.  
  1615. // Loop through each page of the document, calling GXPrintPage for each page's
  1616. // shape.
  1617.     
  1618.         if (err == noErr)
  1619.         {
  1620.             for (pg = firstPage; (err == noErr) && (pg <= lastPage); pg++)
  1621.             {
  1622.                 GXPrintPage(myDocument->documentJob,
  1623.                           pg,
  1624.                           GXGetJobFormat(myDocument->documentJob, 1),
  1625.                           myDocument->documentPage[pg -1]);                                
  1626.         
  1627.                 err = GXGetJobError(myDocument->documentJob);
  1628.             }
  1629.     
  1630. // Finish printing.
  1631.     
  1632.             GXFinishJob(myDocument->documentJob);
  1633.             err = GXGetJobError(myDocument->documentJob);
  1634.         }
  1635.     }
  1636.  
  1637.     return err;
  1638. }
  1639.  
  1640.  
  1641. // This routine sets up our job's collection items
  1642. // to correctly print one full copy of the document,
  1643. // and then it initiates printing.
  1644.  
  1645. OSErr MyPrintOneCopy(MyDocumentPtr whichDocument)
  1646. {
  1647.     OSErr                    err;
  1648.     Collection                jobCollection;
  1649.     gxCopiesInfo            copiesInfo;
  1650.     gxFileDestinationInfo    destInfo;
  1651.     gxPageRangeInfo            pageRangeInfo;
  1652.     Ptr                        oldCopiesInfo = nil, oldPageRangeInfo = nil, oldDestInfo = nil;
  1653.     long                    oldCopiesSize, oldPageRangeInfoSize, oldDestInfoSize;
  1654.  
  1655.  
  1656. /* Get the job collection and set it up to print one copy…    */
  1657.  
  1658.     jobCollection = GXGetJobCollection(whichDocument->documentJob);
  1659.  
  1660.  
  1661. /* Set number of copies to 1.            */
  1662.     
  1663.     copiesInfo.copies = 1;
  1664.     err = MyReplaceCollectionItem(&copiesInfo, sizeof(gxCopiesInfo),
  1665.                                     gxCopiesTag, gxPrintingTagID,
  1666.                                     jobCollection, &oldCopiesInfo, &oldCopiesSize);
  1667.     nrequire(err, ReplaceCopies_error);
  1668.  
  1669.  
  1670. /* Set page range to "all".    */
  1671.     
  1672.     pageRangeInfo.simpleRange.optionChosen = gxDefaultPageRange;
  1673.     pageRangeInfo.minFromPage = 1;
  1674.     pageRangeInfo.simpleRange.fromPage = 1;
  1675.     pageRangeInfo.maxToPage = whichDocument->numPages;
  1676.     pageRangeInfo.simpleRange.toPage = whichDocument->numPages;
  1677.     pageRangeInfo.simpleRange.printAll = true;
  1678.     err = MyReplaceCollectionItem(&pageRangeInfo, sizeof(gxPageRangeInfo),
  1679.                                     gxPageRangeTag, gxPrintingTagID,
  1680.                                     jobCollection, &oldPageRangeInfo, &oldPageRangeInfoSize);
  1681.     nrequire(err, ReplacePageRange_error);
  1682.  
  1683.  
  1684. /* Set destination to "printer".        */
  1685.  
  1686.     destInfo.toFile = false;
  1687.     err = MyReplaceCollectionItem(&destInfo, sizeof(gxFileDestinationInfo),
  1688.                                   gxFileDestinationTag, gxPrintingTagID,
  1689.                                   jobCollection, &oldDestInfo, &oldDestInfoSize);
  1690.     nrequire(err, ReplaceDestination_error);
  1691.  
  1692.  
  1693. /* Print one copy of our document.        */
  1694.  
  1695.     err = MyPrintDocument(whichDocument);
  1696.  
  1697.  
  1698. /*    Restore original number of copies, page range, and output
  1699.     destination in case anybody uses that info. */
  1700.  
  1701. ReplaceCopies_error:
  1702.     MyReplaceCollectionItem(oldCopiesInfo, oldCopiesSize,
  1703.                               gxCopiesTag, gxPrintingTagID,
  1704.                             jobCollection, nil, nil);
  1705.  
  1706. ReplacePageRange_error:
  1707.     MyReplaceCollectionItem(oldPageRangeInfo, oldPageRangeInfoSize,
  1708.                             gxPageRangeTag, gxPrintingTagID,
  1709.                             jobCollection, nil, nil);
  1710.  
  1711. ReplaceDestination_error:
  1712.     MyReplaceCollectionItem(oldDestInfo, oldDestInfoSize,
  1713.                             gxFileDestinationTag, gxPrintingTagID,
  1714.                             jobCollection, nil, nil);
  1715.  
  1716.  
  1717. /* Dispose of the pointers that MyReplaceCollectionItem created. */
  1718.  
  1719.     if (oldCopiesInfo)
  1720.         DisposePtr(oldCopiesInfo);
  1721.  
  1722.     if (oldPageRangeInfo)
  1723.         DisposePtr(oldPageRangeInfo);
  1724.  
  1725.     if (oldDestInfo)
  1726.         DisposePtr(oldDestInfo);
  1727.  
  1728.     return err;
  1729. }
  1730.  
  1731.  
  1732. //    MyReplaceCollectionItem is a generic routine that replaces a
  1733. //    collection item with the passed data.  If the oldData pointer
  1734. //    is not nil, the data that's being replaced is returned in it.
  1735. //    (If the item doesn't already exist, then a copy of the newData
  1736. //    is returned instead.)
  1737.  
  1738. OSErr MyReplaceCollectionItem(void *newData, long collectSize,
  1739.                               OSType collectType, long collectID,
  1740.                               Collection whichCollection,
  1741.                               Ptr *oldData, long *oldDataSize)
  1742. {
  1743.     OSErr    err = noErr;
  1744.     long    index;
  1745.  
  1746. /*
  1747.     If we're supposed to return the old data, get it.
  1748.     If there is no old data, return a copy of the new data.
  1749. */
  1750.  
  1751.     if (oldData)
  1752.     {
  1753.         err = GetCollectionItemInfo(whichCollection,
  1754.                                     collectType,
  1755.                                     collectID,
  1756.                                     dontWantIndex,
  1757.                                     oldDataSize,
  1758.                                     dontWantAttributes);
  1759.  
  1760.         if (err)
  1761.         {
  1762.             *oldDataSize = collectSize;
  1763.             *oldData = NewPtrSys(*oldDataSize);
  1764.             if (!(err = MemError()))
  1765.                 BlockMove(newData, *oldData, collectSize);
  1766.         }
  1767.         else
  1768.         {
  1769.             *oldData = NewPtrSys(*oldDataSize);
  1770.             if (!(err = MemError()))
  1771.                 err = GetCollectionItem(whichCollection,
  1772.                                         collectType,
  1773.                                         collectID,
  1774.                                         dontWantSize,
  1775.                                         *oldData);
  1776.         }
  1777.     }
  1778.  
  1779.     nrequire(err, CouldNotSetOldData);
  1780.  
  1781.  
  1782. // If we're adding a new collection item, do so.  Otherwise, get the
  1783. // existing item's index and replace the old collection item.
  1784.  
  1785.     err = AddCollectionItem(whichCollection,
  1786.                             collectType,
  1787.                             collectID,
  1788.                             collectSize,
  1789.                             newData);
  1790.  
  1791.     if (err == collectionItemLockedErr)
  1792.     {
  1793.         err = GetCollectionItemInfo(whichCollection,
  1794.                                     collectType,
  1795.                                     collectID,
  1796.                                     &index,
  1797.                                     dontWantSize,
  1798.                                     dontWantAttributes);
  1799.         if (!err)
  1800.             err = ReplaceIndexedCollectionItem(whichCollection,
  1801.                                                index,
  1802.                                                collectSize,
  1803.                                                newData);
  1804.     }
  1805.  
  1806. CouldNotSetOldData:
  1807.     return err;
  1808. }
  1809.  
  1810.  
  1811. gxColorProfile MyGetFormattingPrinterProfile(MyDocumentPtr myDocument, gxColorSpace *theSpace)
  1812. {
  1813.     gxShape            deviceBitMap;
  1814.     gxBitmap        deviceBits;
  1815.     gxPrinter        formattingPrinter;
  1816.     gxColorProfile    theProfile;
  1817.     gxViewDevice    printerDevice;
  1818.  
  1819. /*    Get the first profile for the formatting printer. */
  1820.  
  1821.     formattingPrinter = GXGetJobFormattingPrinter(myDocument->documentJob);
  1822.     GXFindPrinterProfile(formattingPrinter, nil, 1, &theProfile);
  1823.  
  1824. /*
  1825.     Now look at the characteristics of the formatting printer's
  1826.     viewdevice and retrieve its color space.
  1827. */
  1828.     printerDevice = GXGetPrinterViewDevice(formattingPrinter, 0);
  1829.     deviceBitMap = GXGetViewDeviceBitmap(printerDevice);
  1830.     GXGetBitmap(deviceBitMap, &deviceBits, nil);
  1831.     *theSpace = deviceBits.space;
  1832.     GXDisposeShape(deviceBitMap);
  1833.  
  1834.     return theProfile;
  1835. }
  1836.  
  1837.  
  1838. Boolean MyMakePrinterColor(MyDocumentPtr myDocument, gxColor *sourceColor, gxColor *printedColor)
  1839. {
  1840.     gxColorProfile    printerProfile;
  1841.     gxColorSpace    printerSpace;
  1842.     Boolean            inGamut;
  1843.  
  1844.     printerProfile = MyGetFormattingPrinterProfile(myDocument, &printerSpace);
  1845.  
  1846. /*
  1847.     Copy the source color, see if it's in gamut, and convert it
  1848.     into the device's color space.
  1849. */
  1850.  
  1851.     *printedColor = *sourceColor;
  1852.     inGamut = GXCheckColor(printedColor, printerSpace, nil, printerProfile);
  1853.     GXConvertColor(printedColor, printerSpace, nil, printerProfile);
  1854.  
  1855.     return inGamut;
  1856. }
  1857.  
  1858.  
  1859. OSErr MyPrintDialog(MyDocumentPtr myDocument)
  1860. {
  1861.     OSErr                err = noErr;
  1862.     gxDialogResult        result;
  1863.     gxEditMenuRecord    editMenuRec;
  1864.  
  1865. /*
  1866.     Fill in the location of the application’s Edit menu
  1867.     items and enable the appropriate menu items.
  1868. */
  1869.     editMenuRec.editMenuID    = mEdit;
  1870.     editMenuRec.cutItem        = kCut;
  1871.     editMenuRec.copyItem    = kCopy;
  1872.     editMenuRec.pasteItem    = kPaste;
  1873.     editMenuRec.clearItem    = kClear;
  1874.     editMenuRec.undoItem    = kUndo;
  1875.  
  1876.     MyAdjustMenusForPrintDialogs(true);
  1877.  
  1878. /*
  1879.     Uncommenting any one of these lines will alter the appearance
  1880.     of the page range fields in the General Print panel.  However,
  1881.     this only works correctly for f2c1.2 or later!!!!
  1882.     
  1883.     You must also uncomment both GXInstallApplicationOverride calls
  1884.     below.
  1885. */
  1886.  
  1887. //    err = MyConfigurePageRange1(myDocument);
  1888. //    err = MyConfigurePageRange2(myDocument);
  1889. //    err = MyConfigurePageRange3(myDocument);
  1890.     nrequire(err, CouldNotConfigurePageRange);
  1891.  
  1892. //    GXInstallApplicationOverride(myDocument->documentJob, gxParsePageRange, NewGXParsePageRangeProc(MyParsePageRangeOverride));
  1893.  
  1894. /*    Display the Print dialog box. */
  1895.  
  1896.     result = GXJobPrintDialog(myDocument->documentJob, &editMenuRec);
  1897.     err = GXGetJobError(myDocument->documentJob);
  1898.  
  1899. //    GXInstallApplicationOverride(myDocument->documentJob, gxParsePageRange, NewGXParsePageRangeProc(nil));
  1900.  
  1901.  
  1902. /*
  1903.     If we didn't receive any errors and the user selected the
  1904.     “OK” button, call our printing routine to output the pages.
  1905. */
  1906.     if ((err == noErr) && (result == gxOKSelected))
  1907.         err = MyPrintDocument(myDocument);
  1908.  
  1909. CouldNotConfigurePageRange:
  1910.     MyAdjustMenusForPrintDialogs(false);
  1911.  
  1912.     return err;
  1913. }
  1914.  
  1915.  
  1916. /*
  1917.     In this routine, we're supposed to check the validity of the "From page"
  1918.     and "To page" strings.  If both are good, return gxRangeParsed.
  1919.     Otherwise, return gxRangeBadFromValue or gxRangeBadToValue.  Being a
  1920.     cheesy sample, we always return gxRangeParsed.
  1921. */
  1922.  
  1923. gxParsePageRangeResult MyPageRangeValidityCheck(StringPtr fromString, StringPtr toString)
  1924. {
  1925.     #pragma unused(fromString, toString)
  1926.  
  1927.     return gxRangeParsed;
  1928. }
  1929.  
  1930.  
  1931. //    This is an override for gxParsePageRange.  In here,
  1932. //    we verify that the user's page range is valid.
  1933.  
  1934. OSErr MyParsePageRangeOverride(StringPtr fromString, StringPtr toString, gxParsePageRangeResult *result)
  1935. {
  1936.  
  1937. /*
  1938.     Determine if the "To page" and "From page" strings are
  1939.     valid.  If not, our MyPageRangeValidityCheck routine
  1940.     will return gxRangeBadFromValue or gxRangeBadToValue.
  1941.     Otherwise it will return gxRangeParsed.
  1942. */
  1943.     if (*result == gxRangeNotParsed)
  1944.         *result = MyPageRangeValidityCheck(fromString, toString);
  1945.  
  1946.     return noErr;
  1947. }
  1948.  
  1949.  
  1950. // This routine sets up the page range collection item to
  1951. // use the default page range style (numeric).
  1952.  
  1953. OSErr MyConfigurePageRange1(MyDocumentPtr myDocument)
  1954. {
  1955.     OSErr                err;
  1956.     gxPageRangeInfo        **pageRangeHdl;
  1957.  
  1958. /*
  1959.     Create a handle to store the page range collection itme in,
  1960.     and then retrieve it.
  1961. */
  1962.     pageRangeHdl = (gxPageRangeInfo **) NewHandleClear(sizeof(gxPageRangeInfo));
  1963.     nrequire_action(err, NewHandleClear_Failed, err = MemError(););
  1964.  
  1965.     err = GetCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  1966.                                gxPageRangeTag,
  1967.                                gxPrintingTagID,
  1968.                                (Handle) pageRangeHdl);
  1969.  
  1970.     nrequire(err, GetCollectionItemHdl_Failed);
  1971.  
  1972. /*
  1973.     Indicate that we're using the default page range format, and that
  1974.     we don't want the "all pages" radio button selected.  We also
  1975.     indicate that we're printing pages 1 through 4.
  1976. */
  1977.     (*pageRangeHdl)->simpleRange.optionChosen = gxDefaultPageRange;
  1978.     (*pageRangeHdl)->simpleRange.printAll = false;
  1979.  
  1980.     (*pageRangeHdl)->simpleRange.fromPage = 1;
  1981.     (*pageRangeHdl)->simpleRange.toPage = 4;
  1982.     (*pageRangeHdl)->minFromPage = 1;
  1983.     (*pageRangeHdl)->maxToPage = 9999;
  1984.  
  1985. /*    Add (or replace) the collection item, and dispose of its handle.    */
  1986.  
  1987.     err = AddCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  1988.                                gxPageRangeTag,
  1989.                                gxPrintingTagID,
  1990.                                (Handle) pageRangeHdl);
  1991.  
  1992. GetCollectionItemHdl_Failed:
  1993.     DisposHandle((Handle) pageRangeHdl);
  1994.  
  1995. NewHandleClear_Failed:
  1996.     return err;
  1997. }
  1998.  
  1999.  
  2000. // This routine sets up the page range collection item to
  2001. // use the replace page range style, which replaces the
  2002. // "From-To" editText fields with one editText field.
  2003.  
  2004. OSErr MyConfigurePageRange2(MyDocumentPtr myDocument)
  2005. {
  2006.     OSErr                    err;
  2007.     gxPageRangeInfo            **pageRangeHdl;
  2008.     Str31                    FromToTitle = "\pChapter 5";
  2009.     long                    titleSize = FromToTitle[0] +1;
  2010.  
  2011. /*
  2012.     Create a handle to store the page range collection itme in,
  2013.     and then retrieve it.
  2014. */
  2015.     pageRangeHdl = (gxPageRangeInfo **) NewHandleClear(sizeof(gxPageRangeInfo));
  2016.     nrequire_action(err, NewHandleClear_Failed, err = MemError(););
  2017.  
  2018.     err = GetCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  2019.                                gxPageRangeTag,
  2020.                                gxPrintingTagID,
  2021.                                (Handle) pageRangeHdl);
  2022.  
  2023.     nrequire(err, GetCollectionItemHdl_Failed);
  2024.  
  2025. /*
  2026.     Indicate that we're replacing the "From-To" dialog items with
  2027.     one editText field, and that we don't want the "all pages"
  2028.     radio button selected.  We also indicate that we want the
  2029.     second radio button's editText field to be set to our title,
  2030.     "Chapter 5".
  2031. */
  2032.     (*pageRangeHdl)->simpleRange.optionChosen = gxReplacePageRange;
  2033.     (*pageRangeHdl)->simpleRange.printAll = false;
  2034.  
  2035.     SetHandleSize((Handle) pageRangeHdl, sizeof(gxPageRangeInfo) +titleSize -1);
  2036.     nrequire_action(err, SetHandleSize_Failed, err = MemError(););
  2037.  
  2038.     BlockMove(FromToTitle, (*pageRangeHdl)->replaceString, titleSize);
  2039.  
  2040. /*    Add (or replace) the collection item, and dispose of its handle.    */
  2041.  
  2042.     err = AddCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  2043.                                gxPageRangeTag,
  2044.                                gxPrintingTagID,
  2045.                                (Handle) pageRangeHdl);
  2046.  
  2047. SetHandleSize_Failed:
  2048. GetCollectionItemHdl_Failed:
  2049.     DisposHandle((Handle) pageRangeHdl);
  2050.  
  2051. NewHandleClear_Failed:
  2052.     return err;
  2053. }
  2054.  
  2055.  
  2056. // This routine sets up the page range collection item to
  2057. // use the custom page range style, which uses the
  2058. // "From-To" editText fields but allows non-standard
  2059. // page numbering.
  2060.  
  2061. OSErr MyConfigurePageRange3(MyDocumentPtr myDocument)
  2062. {
  2063.     OSErr                    err;
  2064.     gxPageRangeInfo            **pageRangeHdl;
  2065.  
  2066. /*
  2067.     Create a handle to store the page range collection itme in,
  2068.     and then retrieve it.
  2069. */
  2070.     pageRangeHdl = (gxPageRangeInfo **) NewHandleClear(sizeof(gxPageRangeInfo));
  2071.     nrequire_action(err, NewHandleClear_Failed, err = MemError(););
  2072.  
  2073.     err = GetCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  2074.                                gxPageRangeTag,
  2075.                                gxPrintingTagID,
  2076.                                (Handle) pageRangeHdl);
  2077.  
  2078.     nrequire(err, GetCollectionItemHdl_Failed);
  2079.  
  2080. /*
  2081.     Indicate that we're using the standard "From-To" editText fields,
  2082.     but are using a custom format for our page range values.  Specify
  2083.     that we don't want the "all pages" radio button selected and that
  2084.     we want the "From" field to contain "iii" and the "To" field to
  2085.     contain "VI".
  2086. */
  2087.     (*pageRangeHdl)->simpleRange.optionChosen = gxCustomizePageRange;
  2088.     (*pageRangeHdl)->simpleRange.printAll = false;
  2089.  
  2090.     BlockMove("iii", &(*pageRangeHdl)->fromString[1], 3);
  2091.     (*pageRangeHdl)->fromString[0] = 3;
  2092.     BlockMove("VI", &(*pageRangeHdl)->toString[1], 2);
  2093.     (*pageRangeHdl)->toString[0] = 2;
  2094.  
  2095. /*    Add (or replace) the collection item, and dispose of its handle.    */
  2096.  
  2097.     err = AddCollectionItemHdl(GXGetJobCollection(myDocument->documentJob),
  2098.                                gxPageRangeTag,
  2099.                                gxPrintingTagID,
  2100.                                (Handle) pageRangeHdl);
  2101.  
  2102. GetCollectionItemHdl_Failed:
  2103.     DisposHandle((Handle) pageRangeHdl);
  2104.  
  2105. NewHandleClear_Failed:
  2106.     return err;
  2107. }
  2108.  
  2109.  
  2110. // Create a new document.  docName is a Pascal string containing the
  2111. // name of the document, myDocument is a pointer to one of our
  2112. // MyDocumentRec structures.
  2113.  
  2114. OSErr MyNewDocument(Str31 docName, MyDocumentPtr myDocument)
  2115. {    
  2116.     OSErr        err;
  2117.     Rect        bounds;
  2118.  
  2119.     myDocument->numPages = 0;                    // There are no pages yet.
  2120.     myDocument->curPage = 0;
  2121.     myDocument->documentFSSpec.name[0] = 0;        // Indicates a new document, not one
  2122.                                                 // which has been loaded.
  2123.  
  2124. // Create a new job for our document and install our overrides for
  2125. // PrintingEvent and FormatDialog.
  2126.  
  2127.     err = GXNewJob(&myDocument->documentJob);
  2128.  
  2129.     if (err == noErr)
  2130.     {
  2131.  
  2132. // Now install our application override for PrintingEvent so that we can
  2133. // support the new movable-modal printing dialog boxes.
  2134.  
  2135.         GXInstallApplicationOverride(myDocument->documentJob, gxPrintingEvent,
  2136.                                      NewGXPrintingEventProc(MyPrintingEventOverride));
  2137.         GXInstallApplicationOverride(myDocument->documentJob, gxFormatDialog,
  2138.                                      NewGXFormatDialogProc(MyFormatDialogOverride));
  2139.  
  2140.  
  2141. // Store the document name.  We limit our document names to 31 characters
  2142. // (plus a length byte).
  2143.  
  2144.         if (docName[0] > 31)
  2145.             docName[0] = 31;
  2146.         
  2147.         BlockMove(&docName[0], &myDocument->documentTitle[0], (long) docName[0] +1);
  2148.  
  2149.     /*
  2150.         Additional application-specific document initialization can go here.
  2151.  
  2152.         .
  2153.         .
  2154.         .
  2155.  
  2156.         Below, we create a window and a viewport for the document.  We store
  2157.         the pointer to our MyDocumentRec structure in the window's refCon field.
  2158.  
  2159.     */
  2160.  
  2161.         SetRect(&bounds, 30, 60, 400, 500);
  2162.         myDocument->documentWindow = NewWindow(nil, &bounds, docName, false, noGrowDocProc,
  2163.                                                (WindowPtr) -1, true, (long) myDocument);
  2164.         err = MemError();
  2165.         
  2166.         if (err == noErr)
  2167.         {
  2168.             SetPort(myDocument->documentWindow);
  2169.             myDocument->documentViewPort = GXNewWindowViewPort(myDocument->documentWindow);
  2170.             err = GXGetGraphicsError(nil);
  2171.             
  2172.             if (err != noErr) DisposeWindow(myDocument->documentWindow);
  2173.         }
  2174.  
  2175.         if (err != noErr) GXDisposeJob(myDocument->documentJob);
  2176.     }
  2177.  
  2178.     return err;
  2179. }
  2180.  
  2181.  
  2182. // Close the document passed and free up any memory we allocated for it.
  2183.  
  2184. OSErr MyCloseDocument(MyDocumentPtr myDocument)
  2185. {    
  2186.     OSErr    err = noErr, jobErr;
  2187.     long    pg;
  2188.  
  2189. // For each page in the document, dispose of the page's shape.
  2190.  
  2191.     for (pg = 1; pg <= myDocument->numPages; pg++)
  2192.         GXDisposeShape(myDocument->documentPage[pg -1]);
  2193.  
  2194.  
  2195. // Dispose of the the document's job (and job formats).
  2196.  
  2197.     jobErr = GXDisposeJob(myDocument->documentJob);
  2198.     if (err == noErr) err = jobErr;
  2199.  
  2200.     /*
  2201.         Place any application-specific code to close a document here.
  2202.  
  2203.         .
  2204.         .
  2205.         .
  2206.  
  2207.         Below, we dispose of the document's viewPort and window.
  2208.  
  2209.     */
  2210.  
  2211.     GXDisposeViewPort(myDocument->documentViewPort);
  2212.     DisposeWindow(myDocument->documentWindow);
  2213.  
  2214.     return err;
  2215. }
  2216.  
  2217.  
  2218. // This routine saves a document and its corresponding job to disk.  It
  2219. // also saves a format collection item containing our page<->format
  2220. // relationships.
  2221.  
  2222. OSErr MySaveDocument(MyDocumentPtr myDocument, Boolean doingSaveAs)
  2223. {
  2224.     OSErr                err;
  2225.     Handle                theJobData, oldJobData;
  2226.     short                dataRefNum = -1;
  2227.     short                oldResFile, resRefNum = -1;
  2228.     FSSpec                *docFSSpec;
  2229.     StandardFileReply    sfReply;
  2230.     FInfo                docFInfo;
  2231.     
  2232. // Create a handle to store the job in, then flatten the job into our handle.
  2233.  
  2234.     oldResFile = CurResFile();
  2235.     theJobData = NewHandle(0);
  2236.     err = MemError();
  2237.     
  2238.     if (err == noErr)
  2239.     {
  2240.  
  2241. // Store the document's page-to-format correspondences, then flatten the job.
  2242.  
  2243.         err = MySaveFormatRefs(myDocument);
  2244.         
  2245.         if (err == noErr)
  2246.         {
  2247.             GXFlattenJobToHdl(myDocument->documentJob, theJobData);
  2248.             err = GXGetJobError(myDocument->documentJob);
  2249.         }
  2250.  
  2251.         if (err == noErr)
  2252.         {
  2253.             docFSSpec = &myDocument->documentFSSpec;
  2254.  
  2255. // If we're doing a "Save as…", display the StandardFile dialog and have the user
  2256. // select a place to save the file.
  2257.  
  2258.             if (doingSaveAs)
  2259.             {
  2260.                 StandardPutFile("\pSave document:", myDocument->documentTitle, &sfReply);
  2261.  
  2262.                 if (!sfReply.sfGood)
  2263.                     return noErr;
  2264.  
  2265. // If we're replacing an existing file, delete it.  Create our new file and set its
  2266. // creator and type.
  2267.  
  2268.                 if (sfReply.sfReplacing)
  2269.                     err = HDelete(sfReply.sfFile.vRefNum, sfReply.sfFile.parID, sfReply.sfFile.name);
  2270.  
  2271.                 if (err == noErr)
  2272.                 {
  2273.                     HCreateResFile(sfReply.sfFile.vRefNum, sfReply.sfFile.parID, sfReply.sfFile.name);
  2274.                     HGetFInfo(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2275.                               sfReply.sfFile.name, &docFInfo);
  2276.                           
  2277.                     docFInfo.fdCreator = kMyDocCreator;
  2278.                     docFInfo.fdType = kMyDocType;
  2279.  
  2280.                     err = HSetFInfo(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2281.                                     sfReply.sfFile.name, &docFInfo);
  2282.                 }
  2283.  
  2284. // If we're successful in creating the file, set our document's FSSpec info, its
  2285. // title and its window's title.
  2286.  
  2287.                 if (err == noErr)
  2288.                     err = ResError();
  2289.  
  2290.                 if (err) return err;
  2291.     
  2292.                 BlockMove(&sfReply.sfFile, docFSSpec, sizeof(FSSpec));
  2293.                 BlockMove(&sfReply.sfFile.name, myDocument->documentTitle,
  2294.                           (long) sfReply.sfFile.name[0] +1);
  2295.                 
  2296.                 SetWTitle(myDocument->documentWindow, myDocument->documentTitle);
  2297.             }
  2298.  
  2299. // Open the file's data fork and resource fork.
  2300.  
  2301.             err = FSpOpenDF(docFSSpec, fsRdWrPerm, &dataRefNum);
  2302.  
  2303.             if (err == noErr)
  2304.             {
  2305.                 resRefNum = HOpenResFile(docFSSpec->vRefNum, docFSSpec->parID,
  2306.                                          docFSSpec->name, fsRdWrPerm);
  2307.                 err = ResError();
  2308.             }
  2309.  
  2310. // If there's an existing job resource, delete it.
  2311.  
  2312.             if (err == noErr)
  2313.             {
  2314.                 UseResFile(resRefNum);
  2315.                 oldJobData = Get1Resource(kMyJobType, kMyJobID);
  2316.                 if (oldJobData != nil)
  2317.                 {
  2318.                     RmveResource(oldJobData);
  2319.                     UpdateResFile(resRefNum);
  2320.                     DisposHandle(oldJobData);
  2321.                 }
  2322.  
  2323. // Add our new job resource.
  2324.  
  2325.                 AddResource(theJobData, kMyJobType, kMyJobID, "\p");
  2326.                 err = ResError();
  2327.     
  2328.                 if (err == noErr)
  2329.                 {
  2330.                     WriteResource(theJobData);
  2331.                     UpdateResFile(resRefNum);
  2332.                     ReleaseResource(theJobData);
  2333.                 }
  2334.                 
  2335.  
  2336. // Now write out the data for our document's pages.
  2337.                 
  2338.                 /* 
  2339.                     Place your application-specific code here to save 
  2340.                     other data associated with the document.
  2341.                     .
  2342.                     .
  2343.                     .
  2344.                 */
  2345.             }
  2346.  
  2347. // Close the data and resource forks of this document.
  2348.  
  2349.             if (dataRefNum != -1) FSClose(dataRefNum);
  2350.             if (resRefNum  != -1) CloseResFile(resRefNum);
  2351.         }
  2352.         else
  2353.             DisposHandle(theJobData);
  2354.     }
  2355.         
  2356.     UseResFile(oldResFile);
  2357.     return err;
  2358. }
  2359.  
  2360.  
  2361. // This routine saves a document and its corresponding job to disk.
  2362. // It saves the job in the data fork of the document.
  2363.  
  2364. OSErr MySaveDocument2(MyDocumentPtr myDocument, Boolean doingSaveAs)
  2365. {
  2366.     OSErr                err;
  2367.     short                dataRefNum = -1;
  2368.     short                oldResFile, resRefNum = -1;
  2369.     FSSpec                *docFSSpec;
  2370.     StandardFileReply    sfReply;
  2371.     FInfo                docFInfo;
  2372.     
  2373. // Create a handle to store the job in, then flatten the job into our handle.
  2374.  
  2375.     oldResFile = CurResFile();
  2376.     err = MemError();
  2377.     
  2378.     if (err == noErr)
  2379.     {
  2380.         docFSSpec = &myDocument->documentFSSpec;
  2381.  
  2382. // If we're doing a "Save as…", display the StandardFile dialog and have the user
  2383. // select a place to save the file.
  2384.  
  2385.         if (doingSaveAs)
  2386.         {
  2387.             StandardPutFile("\pSave document:", myDocument->documentTitle, &sfReply);
  2388.  
  2389.             if (!sfReply.sfGood)
  2390.                 return noErr;
  2391.  
  2392. // If we're replacing an existing file, delete it.  Create our new file and set its
  2393. // creator and type.
  2394.  
  2395.             if (sfReply.sfReplacing)
  2396.                 err = HDelete(sfReply.sfFile.vRefNum, sfReply.sfFile.parID, sfReply.sfFile.name);
  2397.  
  2398.             if (err == noErr)
  2399.             {
  2400.                 HCreateResFile(sfReply.sfFile.vRefNum, sfReply.sfFile.parID, sfReply.sfFile.name);
  2401.                 HGetFInfo(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2402.                           sfReply.sfFile.name, &docFInfo);
  2403.                       
  2404.                 docFInfo.fdCreator = kMyDocCreator;
  2405.                 docFInfo.fdType = kMyDocType;
  2406.  
  2407.                 err = HSetFInfo(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2408.                                 sfReply.sfFile.name, &docFInfo);
  2409.             }
  2410.  
  2411. // If we're successful in creating the file, set our document's FSSpec info, its
  2412. // title and its window's title.
  2413.  
  2414.             if (err == noErr)
  2415.                 err = ResError();
  2416.  
  2417.             if (err) return err;
  2418.  
  2419.             BlockMove(&sfReply.sfFile, docFSSpec, sizeof(FSSpec));
  2420.             BlockMove(&sfReply.sfFile.name, myDocument->documentTitle,
  2421.                       (long) sfReply.sfFile.name[0] +1);
  2422.             
  2423.             SetWTitle(myDocument->documentWindow, myDocument->documentTitle);
  2424.         }
  2425.  
  2426. // Open the file's data fork and resource fork.
  2427.  
  2428.         err = FSpOpenDF(docFSSpec, fsRdWrPerm, &dataRefNum);
  2429.  
  2430.         if (err == noErr)
  2431.         {
  2432.             resRefNum = HOpenResFile(docFSSpec->vRefNum, docFSSpec->parID,
  2433.                                      docFSSpec->name, fsRdWrPerm);
  2434.             err = ResError();
  2435.         }
  2436.  
  2437. // Store the document's page-to-format correspondences, then flatten the
  2438. // job to disk.
  2439.  
  2440.         if (err == noErr)
  2441.         {
  2442.             err = MySaveFormatRefs(myDocument);
  2443.  
  2444.             if (err == noErr)
  2445.                 err = MySaveJobInDataFork(myDocument, dataRefNum);
  2446.         }
  2447.  
  2448.         if (err == noErr)
  2449.         {
  2450.  
  2451. // Now write out the data for our document's pages.
  2452.             
  2453.             /* 
  2454.                 Place your application-specific code here to save 
  2455.                 other data associated with the document.
  2456.                 .
  2457.                 .
  2458.                 .
  2459.             */
  2460.         }
  2461.  
  2462. // Close the data and resource forks of this document.
  2463.  
  2464.         if (dataRefNum != -1) FSClose(dataRefNum);
  2465.         if (resRefNum  != -1) CloseResFile(resRefNum);
  2466.     }
  2467.         
  2468.     UseResFile(oldResFile);
  2469.     return err;
  2470. }
  2471.  
  2472.  
  2473. // This routine is called to flatten a job to disk.  We're passed
  2474. // the refNum of the open data fork to write to.
  2475.  
  2476. OSErr MySaveJobInDataFork(MyDocumentPtr myDocument, short dataRefNum)
  2477. {
  2478.     OSErr    err;
  2479.  
  2480. // Reset the file's position to the beginning of the data fork, and
  2481. // then write the flattened job there.
  2482.  
  2483.     err = SetFPos(dataRefNum, fsFromStart, 0);
  2484.     
  2485.     if (err == noErr)
  2486.     {
  2487.         GXFlattenJob(myDocument->documentJob,
  2488.                    (gxPrintingFlattenProc) MyFlattenJobProc,
  2489.                    (void *) dataRefNum);
  2490.  
  2491.         err = GXGetJobError(myDocument->documentJob);
  2492.     }
  2493.     
  2494.     return err;
  2495. }
  2496.  
  2497.  
  2498. // This routine is a PrintingFlattenProc which flattens a job
  2499. // and writes it to the passed data fork.
  2500.  
  2501. OSErr MyFlattenJobProc(long dataSize, void *data, void *dataRefNum)
  2502. {
  2503.     long    count = dataSize;
  2504.  
  2505.     return FSWrite((short) dataRefNum, &count, data);
  2506. }
  2507.  
  2508.  
  2509. // This routine is called to unflatten a job from disk.  We're passed
  2510. // the refNum of the open data fork to read from.
  2511.  
  2512. OSErr MyLoadJobFromDataFork(MyDocumentPtr myDocument, short dataRefNum)
  2513. {
  2514.     OSErr    err;
  2515.  
  2516. // Reset the file's position to the beginning of the data fork, and
  2517. // then read and unflatten the job from there.
  2518.  
  2519.     err = SetFPos(dataRefNum, fsFromStart, 0);
  2520.     
  2521.     if (err == noErr)
  2522.     {
  2523.         GXUnflattenJob(myDocument->documentJob,
  2524.                      (gxPrintingFlattenProc) MyUnflattenJobProc,
  2525.                      (void *) dataRefNum);
  2526.  
  2527.         err = GXGetJobError(myDocument->documentJob);
  2528.     }
  2529.     
  2530.     return err;
  2531. }
  2532.  
  2533.  
  2534. // This routine is a PrintingFlattenProc which reads and unflattens
  2535. // a job in the passed data fork.
  2536.  
  2537. OSErr MyUnflattenJobProc(long dataSize, void *data, void *dataRefNum)
  2538. {
  2539.     long    count = dataSize;
  2540.  
  2541.     return FSRead((short) dataRefNum, &count, data);
  2542. }
  2543.  
  2544.  
  2545. // This routine opens a document and loads its previously saved job,
  2546. // reassociating any formats that the job contains.
  2547.  
  2548. OSErr MyOpenDocument(MyDocumentPtr myDocument)
  2549. {
  2550.     OSErr                err;
  2551.     Handle                theJobData;
  2552.     short                oldResFile, dataRefNum = -1, resRefNum = -1;
  2553.     StandardFileReply    sfReply;
  2554.     SFTypeList            myTypeList;
  2555.  
  2556. // Let the user select a document to open.
  2557.  
  2558.     oldResFile = CurResFile();
  2559.     
  2560.     myTypeList[0] = kMyDocType;
  2561.     StandardGetFile(nil, 1, &myTypeList, &sfReply);
  2562.  
  2563.     if (!sfReply.sfGood)
  2564.         return noErr;
  2565.  
  2566. // Open the selected file's data fork and resource fork.
  2567.  
  2568.     err = FSpOpenDF(&sfReply.sfFile, fsRdWrPerm, &dataRefNum);
  2569.  
  2570.     if (err == noErr)
  2571.     {
  2572.         resRefNum = HOpenResFile(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2573.                                  sfReply.sfFile.name, fsRdPerm);
  2574.         err = ResError();
  2575.     }
  2576.  
  2577. // If we're successful in opening the file, set our document's FSSpec info, its
  2578. // title, and its window's title.
  2579.  
  2580.     if (err == noErr)
  2581.         err = ResError();
  2582.  
  2583.     if (err) return err;
  2584.  
  2585.     BlockMove(&sfReply.sfFile, &myDocument->documentFSSpec, sizeof(FSSpec));
  2586.     BlockMove(&sfReply.sfFile.name, myDocument->documentTitle,
  2587.               (long) sfReply.sfFile.name[0] +1);
  2588.     
  2589.     SetWTitle(myDocument->documentWindow, myDocument->documentTitle);
  2590.  
  2591. // If there's a job resource saved, load it and unflatten it.
  2592.  
  2593.     UseResFile(resRefNum);
  2594.     theJobData = Get1Resource(kMyJobType, kMyJobID);
  2595.  
  2596.     if (theJobData != nil)
  2597.     {
  2598.         GXUnflattenJobFromHdl(myDocument->documentJob, theJobData);
  2599.         err = GXGetJobError(myDocument->documentJob);
  2600.         ReleaseResource(theJobData);
  2601.     }
  2602.  
  2603. // Set up the new format references for each page.
  2604.                 
  2605.     if (err == noErr)
  2606.         err = MyAdjustFormats(myDocument);
  2607.  
  2608. // Now load the data for our document's pages.
  2609.                 
  2610.     /* 
  2611.         Place your application-specific code here to load 
  2612.         other data associated with the document.
  2613.         .
  2614.         .
  2615.         .
  2616.     */
  2617.  
  2618. // Close the data and resource forks of this document.
  2619.  
  2620.     if (dataRefNum != -1) FSClose(dataRefNum);
  2621.     if (resRefNum  != -1) CloseResFile(resRefNum);
  2622.  
  2623.     UseResFile(oldResFile);
  2624.     return err;
  2625. }
  2626.  
  2627.  
  2628. // This routine opens a document and loads its previously saved job
  2629. // from the data fork, reassociating any formats that the job contains.
  2630.  
  2631. OSErr MyOpenDocument2(MyDocumentPtr myDocument)
  2632. {
  2633.     OSErr                err;
  2634.     short                oldResFile, dataRefNum = -1, resRefNum = -1;
  2635.     StandardFileReply    sfReply;
  2636.     SFTypeList            myTypeList;
  2637.  
  2638. // Let the user select a document to open.
  2639.  
  2640.     oldResFile = CurResFile();
  2641.     
  2642.     myTypeList[0] = kMyDocType;
  2643.     StandardGetFile(nil, 1, &myTypeList, &sfReply);
  2644.  
  2645.     if (!sfReply.sfGood)
  2646.         return noErr;
  2647.  
  2648. // Open the selected file's data fork and resource fork.
  2649.  
  2650.     err = FSpOpenDF(&sfReply.sfFile, fsRdWrPerm, &dataRefNum);
  2651.  
  2652.     if (err == noErr)
  2653.     {
  2654.         resRefNum = HOpenResFile(sfReply.sfFile.vRefNum, sfReply.sfFile.parID,
  2655.                                  sfReply.sfFile.name, fsRdPerm);
  2656.         err = ResError();
  2657.     }
  2658.  
  2659. // If we're successful in opening the file, set our document's FSSpec info, its
  2660. // title, and its window's title.
  2661.  
  2662.     if (err) return err;
  2663.  
  2664.     BlockMove(&sfReply.sfFile, &myDocument->documentFSSpec, sizeof(FSSpec));
  2665.     BlockMove(&sfReply.sfFile.name, myDocument->documentTitle,
  2666.               (long) sfReply.sfFile.name[0] +1);
  2667.     
  2668.     SetWTitle(myDocument->documentWindow, myDocument->documentTitle);
  2669.  
  2670. // Load and unflatten the job from the data fork.
  2671.  
  2672.     err = MyLoadJobFromDataFork(myDocument, dataRefNum);
  2673.  
  2674.     if (err == noErr)
  2675.     {
  2676.     
  2677. // Any format references saved with a document are no longer valid,
  2678. // so we need to adjust them.
  2679.                     
  2680.         UseResFile(resRefNum);
  2681.     
  2682.         if (err == noErr)
  2683.             err = MyAdjustFormats(myDocument);
  2684.  
  2685. // Now load the data for our document's pages.
  2686.                 
  2687.         /* 
  2688.             Place your application-specific code here to load 
  2689.             other data associated with the document.
  2690.             .
  2691.             .
  2692.             .
  2693.         */
  2694.  
  2695. // Close the data and resource forks of this document.
  2696.  
  2697.     }
  2698.  
  2699.     if (dataRefNum != -1) FSClose(dataRefNum);
  2700.     if (resRefNum  != -1) CloseResFile(resRefNum);
  2701.  
  2702.     UseResFile(oldResFile);
  2703.     return err;
  2704. }
  2705.  
  2706.  
  2707. // This routine opens a document and loads its previously saved job,
  2708. // reassociating any formats that the job contains.  It's just like
  2709. // MyOpenDocument, but it opens the indicated file and doesn't
  2710. // present a file dialog.
  2711.  
  2712. OSErr MyFSOpenDocument(MyDocumentPtr myDocument, FSSpec *docFSSpec)
  2713. {
  2714.     OSErr        err;
  2715.     Handle        theJobData;
  2716.     short        oldResFile, dataRefNum = -1, resRefNum = -1;
  2717.  
  2718.     oldResFile = CurResFile();
  2719.  
  2720. // Open the selected file's data fork and resource fork.
  2721.  
  2722.     err = FSpOpenDF(docFSSpec, fsRdWrPerm, &dataRefNum);
  2723.  
  2724.     if (err == noErr)
  2725.     {
  2726.         resRefNum = HOpenResFile(docFSSpec->vRefNum, docFSSpec->parID, docFSSpec->name, fsRdPerm);
  2727.         err = ResError();
  2728.     }
  2729.  
  2730. // If we're successful in opening the file, set our document's FSSpec info, its
  2731. // title, and its window's title.
  2732.  
  2733.     if (err == noErr)
  2734.         err = ResError();
  2735.  
  2736.     if (err) return err;
  2737.  
  2738.     BlockMove(docFSSpec, &myDocument->documentFSSpec, sizeof(FSSpec));
  2739.     BlockMove(docFSSpec->name, myDocument->documentTitle, (long) docFSSpec->name[0] +1);
  2740.     SetWTitle(myDocument->documentWindow, myDocument->documentTitle);
  2741.  
  2742. // If there's a job resource saved, load it and unflatten it.
  2743.  
  2744.     UseResFile(resRefNum);
  2745.     theJobData = Get1Resource(kMyJobType, kMyJobID);
  2746.  
  2747.     if (theJobData != nil)
  2748.     {
  2749.         GXUnflattenJobFromHdl(myDocument->documentJob, theJobData);
  2750.         err = GXGetJobError(myDocument->documentJob);
  2751.         ReleaseResource(theJobData);
  2752.     }
  2753.  
  2754. // Any format references saved with a document are no longer valid,
  2755. // so we need to adjust them.
  2756.                 
  2757.     if (err == noErr)
  2758.         err = MyAdjustFormats(myDocument);
  2759.  
  2760. // Now load the data for our document's pages.
  2761.                 
  2762.     /* 
  2763.         Place your application-specific code here to load 
  2764.         other data associated with the document.
  2765.         .
  2766.         .
  2767.         .
  2768.     */
  2769.  
  2770. // Close the data and resource forks of this document.
  2771.  
  2772.     if (dataRefNum != -1) FSClose(dataRefNum);
  2773.     if (resRefNum  != -1) CloseResFile(resRefNum);
  2774.  
  2775.     UseResFile(oldResFile);
  2776.     return err;
  2777. }
  2778.  
  2779.  
  2780. // This routine saves page format indices for a document.  We'll store
  2781. // this info in the job's default format's collection.  We use this
  2782. // information to "reconstruct" the document the next time we
  2783. // open it.  This routine is called when we save a document, before we
  2784. // have flattened the document's job.
  2785. //
  2786.  
  2787. OSErr MySaveFormatRefs(MyDocumentPtr myDocument)
  2788. {
  2789.     OSErr                err = noErr;
  2790.     Handle                theFormatIdxList;
  2791.     Collection            fmtCollection;
  2792.     gxFormat            defaultFmt;
  2793.  
  2794. // If we have any pages in this document, create a handle containing all of the
  2795. // page format indices.
  2796.  
  2797.     if (myDocument->numPages > 0)
  2798.     {
  2799.  
  2800. // Get the job's default format's collection, and if we've already
  2801. // stored a page-to-format correspondence item in it, remove it.
  2802.  
  2803.         defaultFmt = GXGetJobFormat(myDocument->documentJob, 1);
  2804.         fmtCollection = GXGetFormatCollection(defaultFmt);
  2805.  
  2806.         if (fmtCollection != nil)
  2807.             RemoveCollectionItem(fmtCollection, kMyFormatInfoType, kMyFormatInfoTagID);
  2808.  
  2809. // Create a list of page-to-format correspondences for the current document.
  2810. // If there are no errors, add the item to the job's default format's
  2811. // collection, for later retrieval.
  2812.  
  2813.  
  2814.         err = MyCreateFormatIndexList(myDocument, &theFormatIdxList);
  2815.  
  2816.         if (err == noErr)
  2817.         {
  2818.             HLock(theFormatIdxList);
  2819.             err = AddCollectionItem(fmtCollection,
  2820.                                     kMyFormatInfoType,
  2821.                                     kMyFormatInfoTagID,
  2822.                                     GetHandleSize(theFormatIdxList),
  2823.                                     *theFormatIdxList);
  2824.     
  2825.             DisposHandle(theFormatIdxList);
  2826.         }
  2827.     }
  2828.  
  2829.     return err;
  2830. }
  2831.  
  2832.  
  2833. // This routine stores the index of each page's format in a handle.
  2834. // The index of page #1's format will go in the first longword of
  2835. // theFormatIdxList handle, the index of the next page's format will
  2836. // go in the next longword, and so on.  The handle is created and
  2837. // returned to the caller.
  2838.  
  2839. OSErr MyCreateFormatIndexList(MyDocumentPtr myDocument, Handle *theFormatIdxList)
  2840. {
  2841.     OSErr        err;
  2842.     long        fmtIdx, pg, *idxList;
  2843.     gxFormat    curFormat;
  2844.  
  2845. // Create a handle large enough to hold all of our entries.  We use
  2846. // NewHandleClear so that all of our indices are initialized to 0
  2847. // (an invalid format index).  Since our application stores a nil
  2848. // format reference for any page which uses the job's default format,
  2849. // this allows us to indicate these "nil references" by an index of
  2850. // 0 in our collection item.  When we re-open the document, we'll
  2851. // know that an index of 0 means "Use the job's default format."
  2852.  
  2853.     *theFormatIdxList = NewHandleClear(sizeof(long) * (myDocument->numPages));
  2854.     err = MemError();
  2855.  
  2856. // If there aren't any errors, go through every format in the document's
  2857. // job.  If the format is used by any pages of our document, store the
  2858. // format's index in those page entries of theFormatIdxList.  We skip format
  2859. // #1, since that's the job format (and we're storing nil for the index in
  2860. // this case).  Because we created the handle with NewHandleClear, nil will
  2861. // already be stored in any entries we don't change.
  2862.  
  2863.     if (err == noErr)
  2864.     {
  2865.         HLock(*theFormatIdxList);
  2866.         idxList = (long *) **theFormatIdxList;
  2867.         
  2868.         for (fmtIdx = 2; fmtIdx <= GXCountJobFormats(myDocument->documentJob); fmtIdx++)
  2869.         {
  2870.             curFormat = GXGetJobFormat(myDocument->documentJob, fmtIdx);
  2871.     
  2872.             for (pg = 1; pg <= myDocument->numPages; pg++)
  2873.                 if (myDocument->pageFormat[pg -1] == curFormat)
  2874.                     idxList[pg -1] = fmtIdx;
  2875.         }
  2876.         
  2877.         HUnlock(*theFormatIdxList);
  2878.     }
  2879.  
  2880.     return err;
  2881. }
  2882.  
  2883.  
  2884. // This routine associates new format references with a document, based
  2885. // upon the format indices which were saved with the document.
  2886. // The routine is called when we open a document.
  2887. //
  2888. // The format references will be stored in the passed MyDocumentRec
  2889. // structure.
  2890.  
  2891. OSErr MyAdjustFormats(MyDocumentPtr myDocument)
  2892. {
  2893.     OSErr        err = noErr;
  2894.     Handle        theFormatIdxList = nil;
  2895.     gxFormat    theFormat, defaultFmt;
  2896.     long        pg, numPages, fmtIdx, *idxList, idx, listSize, attribs;
  2897.     Collection    fmtCollection;
  2898.  
  2899. // Get the job's default format's collection, and look for one of our
  2900. // page-to-format correspondence items in it.
  2901.  
  2902.     defaultFmt = GXGetJobFormat(myDocument->documentJob, 1);
  2903.     fmtCollection = GXGetFormatCollection(defaultFmt);
  2904.  
  2905.  
  2906. // Load our item containing our page-to-format correspondences.
  2907. // We do this in two passes.  First we determine if the item
  2908. // exists, and if so, get its size.  Next we create a handle
  2909. // to hold the item (if it exists), and then actually retrieve it.
  2910. // Because there will be one longword entry for each page of our
  2911. // document, we can determine the number of pages in the document.
  2912.  
  2913.     err = GetCollectionItemInfo(fmtCollection, kMyFormatInfoType,
  2914.                                 kMyFormatInfoTagID, &idx, &listSize, &attribs);
  2915.  
  2916.     if (err == noErr)
  2917.         theFormatIdxList = NewHandle(listSize);
  2918.  
  2919.     if (theFormatIdxList != nil)
  2920.     {
  2921.         HLock(theFormatIdxList);
  2922.  
  2923.         err = GetCollectionItem(fmtCollection, kMyFormatInfoType,
  2924.                                   kMyFormatInfoTagID, nil, *theFormatIdxList);
  2925.  
  2926.         numPages = listSize / sizeof(long);
  2927.  
  2928.  
  2929. // We TEMPORARILY cheat here and rebuild the page rather than load and save the shapes.
  2930.  
  2931.         for (pg = 1; !err && (pg <= numPages); pg++)
  2932.         {
  2933.             err = MyInsertPage(myDocument);
  2934.             myDocument->curPage = pg;
  2935.         }
  2936.         myDocument->curPage = 1;
  2937.  
  2938. // Loop through each saved index.  The way we saved them, the first is for
  2939. // page 1, the second is for page 2, and so on.  We need to call
  2940. // GetJobFormat for each saved index.  If the index is nil, that's just
  2941. // our way of saying "use the job format."  In that case, we don't call
  2942. // GetJobFormat, we just store nil for the page's format.  Store
  2943. // the format references as they're processed.  When we're done, throw
  2944. // away the handle we created.
  2945.  
  2946.         idxList = (long *) *theFormatIdxList;
  2947.         
  2948.         for (pg = 1; pg <= numPages; pg++)
  2949.         {
  2950.             fmtIdx = idxList[pg -1];
  2951.             
  2952.             if (fmtIdx != nil)
  2953.                 theFormat = GXGetJobFormat(myDocument->documentJob, fmtIdx);
  2954.             else
  2955.                 theFormat = nil;
  2956.  
  2957.             myDocument->pageFormat[pg -1] = theFormat;
  2958.         }
  2959.  
  2960.         DisposHandle(theFormatIdxList);
  2961.     }
  2962.  
  2963.     return err;
  2964. }
  2965.  
  2966.  
  2967. // This routine converts an old-style (TPrint) print record into a QuickDraw
  2968. // GX job.  We use this routine when we're opening an old document that
  2969. // had a print record saved with it rather than a job.  The old-style
  2970. // print record is passed in hPrint.
  2971.  
  2972. OSErr MyPrintRecordToJob(MyDocumentPtr myDocument, THPrint hPrint)
  2973. {
  2974.  
  2975. // Convert the print record and store its settings in
  2976. // the passed job.  Then dispose of its handle.
  2977.  
  2978.     GXConvertPrintRecord(myDocument->documentJob, hPrint);
  2979.     DisposeHandle((Handle) hPrint);
  2980.  
  2981.     return GXGetJobError(myDocument->documentJob);
  2982. }
  2983.  
  2984.  
  2985. // Insert a page at the current display location.
  2986.  
  2987. OSErr MyInsertPage(MyDocumentPtr myDocument)
  2988. {
  2989.     gxGraphicsError    grErr;
  2990.     long            pg, curPage;
  2991.     Str255            pStr;
  2992.     gxRectangle        windowBounds;
  2993.     gxShape            txtShape;
  2994.     
  2995.     curPage = myDocument->curPage;
  2996.     
  2997.     if (myDocument->numPages != 0)
  2998.         for (pg = myDocument->numPages; pg > curPage; pg--)
  2999.         {
  3000.             myDocument->documentPage[pg] = myDocument->documentPage[pg -1];
  3001.             myDocument->pageFormat[pg] = myDocument->pageFormat[pg -1];
  3002.         }
  3003.     else
  3004.         curPage = 0;
  3005.     
  3006.     ++curPage;
  3007.     
  3008.     pStr[0] = sprintf(&pStr[1], "%s%i", "Reference ID #", myDocument->numPages +1);
  3009.     txtShape = GXNewText((long) pStr[0], (const unsigned char *) &pStr[1], nil);
  3010.  
  3011.     SetShapeCommonFont(txtShape, timesFont);
  3012.     GXSetShapeTextSize(txtShape, ff(24));
  3013.     GXSetShapeAttributes(txtShape, (GXGetShapeAttributes(txtShape)) | gxMapTransformShape);
  3014.     GXSetShapeViewPorts(txtShape, 1, &myDocument->documentViewPort);
  3015.  
  3016.     windowBounds.left = ff(0);
  3017.     windowBounds.top = ff(0);
  3018.     windowBounds.right = ff(370);
  3019.     windowBounds.bottom = ff(440);
  3020.  
  3021.     CenterShape(txtShape, &windowBounds);
  3022.     myDocument->documentPage[curPage -1] = GXNewShape(gxPictureType);
  3023.     GXSetShapeViewPorts(myDocument->documentPage[curPage -1], 1, &myDocument->documentViewPort);
  3024.     GXSetShapeAttributes(myDocument->documentPage[curPage -1],
  3025.                          (GXGetShapeAttributes(myDocument->documentPage[curPage -1])) | gxUniqueItemsShape);
  3026.     GXSetPictureParts(myDocument->documentPage[curPage -1], 0, 0, 1, &txtShape, nil, nil, nil);
  3027.     GXDisposeShape(txtShape);
  3028.  
  3029.     myDocument->pageFormat[curPage -1] = nil;
  3030.  
  3031.     grErr = GXGetGraphicsError(nil);
  3032.     
  3033.     if (grErr == noErr)
  3034.     {
  3035.         myDocument->curPage = curPage;
  3036.         ++myDocument->numPages;
  3037.         InvalRect(&(myDocument->documentWindow)->portRect);
  3038.     }
  3039.     else
  3040.         GXDisposeShape(myDocument->documentPage[curPage -1]);
  3041.  
  3042.     return (OSErr) grErr;
  3043. }
  3044.  
  3045.  
  3046. // Delete the current page of a document and free up any memory we
  3047. // allocated for it.
  3048.  
  3049. OSErr MyDeletePage(MyDocumentPtr myDocument)
  3050. {    
  3051.     OSErr        err;
  3052.     long        curPage, pg;
  3053.  
  3054. // Dispose of the current page's shape and format.  If the page format is nil,
  3055. // this indicates that the page used the document's job format.  In this case,
  3056. // there is no format to dispose.
  3057.  
  3058.     curPage = myDocument->curPage;
  3059.     GXDisposeShape(myDocument->documentPage[curPage -1]);
  3060.  
  3061.     if (myDocument->pageFormat[curPage -1] != nil)
  3062.         GXDisposeFormat(myDocument->pageFormat[curPage -1]);
  3063.  
  3064.     /*
  3065.         Place any application-specific code to delete a page here.
  3066.  
  3067.         .
  3068.         .
  3069.         .
  3070.  
  3071.     */
  3072.  
  3073. // We shift all pages after this one down a page to fill the gap created
  3074. // by this deletion.  When finished, we decrement the number of pages in
  3075. // our document.
  3076.  
  3077.     if (myDocument->numPages != 0)
  3078.         for (pg = curPage; pg < myDocument->numPages; pg++)
  3079.         {
  3080.             myDocument->documentPage[pg -1] = myDocument->documentPage[pg];
  3081.             myDocument->pageFormat[pg -1] = myDocument->pageFormat[pg];
  3082.         }
  3083.  
  3084.     --myDocument->numPages;
  3085.  
  3086. // If the "current page" value is now invalid for this document, decrement it to
  3087. // reference the previous page, if any.  Invalidate the window so that the document
  3088. // is updated on screen.  Finally, check for errors and return.
  3089.  
  3090.     if (curPage > myDocument->numPages)
  3091.         --myDocument->curPage;
  3092.  
  3093.     InvalRect(&(myDocument->documentWindow)->portRect);
  3094.  
  3095.     err = GXGetJobError(myDocument->documentJob);
  3096.     if (err == noErr) err = GXGetGraphicsError(nil);
  3097.  
  3098.     return err;
  3099. }
  3100.  
  3101.  
  3102. // MyBackPage moves us back a page in the document.
  3103.  
  3104. void MyBackPage(WindowPtr whichWindow)
  3105. {
  3106.     MyDocumentPtr    myDocument;
  3107.  
  3108.     if (((WindowPeek) whichWindow)->windowKind != userKind) return;
  3109.     myDocument = (MyDocumentPtr) GetWRefCon(whichWindow);
  3110.  
  3111.     if (myDocument->curPage > 1)
  3112.     {
  3113.         --myDocument->curPage;
  3114.         InvalRect(&whichWindow->portRect);
  3115.     }
  3116. }
  3117.  
  3118.  
  3119. // MyAheadPage moves us forward a page in the document.
  3120.  
  3121. void MyAheadPage(WindowPtr whichWindow)
  3122. {
  3123.     MyDocumentPtr    myDocument;
  3124.  
  3125.     if (((WindowPeek) whichWindow)->windowKind != userKind) return;
  3126.     myDocument = (MyDocumentPtr) GetWRefCon(whichWindow);
  3127.  
  3128.     if (myDocument->curPage < myDocument->numPages)
  3129.     {
  3130.         ++myDocument->curPage;
  3131.         InvalRect(&whichWindow->portRect);
  3132.     }
  3133. }
  3134.  
  3135.  
  3136. // This routine adds a form consisting of a rectangle
  3137. // to the current page's format.
  3138.  
  3139. OSErr MyAddFormatForm(MyDocumentPtr myDocument)
  3140. {    
  3141.     OSErr            err;
  3142.     long            curPage;
  3143.     gxFormat        theFormat;
  3144.     gxShape            rectShape;
  3145.     gxRectangle        pageRect;
  3146.  
  3147. // Get the current format.  If it's nil, this means we're
  3148. // using the job's default format.
  3149.  
  3150.     curPage = myDocument->curPage;
  3151.     theFormat = myDocument->pageFormat[curPage -1];
  3152.  
  3153.     if (theFormat == nil)
  3154.         theFormat = GXGetJobFormat(myDocument->documentJob, 1);
  3155.  
  3156. // Create a rectangle shape to use as the format's form.
  3157. // We'll make the rectangle's frame be the imageable area
  3158. // of the page.
  3159.  
  3160.     GXGetFormatDimensions(theFormat, &pageRect, nil);
  3161.     rectShape = GXNewRectangle(&pageRect);
  3162.     
  3163.     GXSetShapeBounds(rectShape, &pageRect);
  3164.     GXSetShapePen(rectShape, ff(3));
  3165.     GXInsetShape(rectShape, ff(3));
  3166.     GXSetShapeFill(rectShape, gxClosedFrameFill);
  3167.  
  3168.     err = (OSErr) GXGetGraphicsError(nil);
  3169.  
  3170. // Set the format's form to our new shape (it must be a
  3171. // picture), check for errors, then dispose of the shape.
  3172.  
  3173.     if (err == noErr)
  3174.     {
  3175.         GXSetShapeType(rectShape, gxPictureType);
  3176.         GXSetFormatForm(theFormat, rectShape, nil);
  3177.         err = GXGetJobError(myDocument->documentJob);
  3178.     }
  3179.  
  3180.     GXDisposeShape(rectShape);
  3181.  
  3182.     return err;
  3183. }
  3184.  
  3185.  
  3186. // This routine removes the current page's format form, if any.
  3187.  
  3188. OSErr MyRemoveFormatForm(MyDocumentPtr myDocument)
  3189. {    
  3190.     long        curPage;
  3191.     gxFormat    theFormat;
  3192.  
  3193. // Get the current format.  If it's nil, this means we're
  3194. // using the job's default format.
  3195.  
  3196.     curPage = myDocument->curPage;
  3197.     theFormat = myDocument->pageFormat[curPage -1];
  3198.  
  3199.     if (theFormat == nil)
  3200.         theFormat = GXGetJobFormat(myDocument->documentJob, 1);
  3201.  
  3202. // Set the format's form and mask to nil.
  3203.  
  3204.     GXSetFormatForm(theFormat, nil, nil);
  3205.     return GXGetJobError(myDocument->documentJob);
  3206. }
  3207.  
  3208.  
  3209. // This routine moves a page format to another job.  We use this routine
  3210. // when we move a page from one document to another, if no other page in
  3211. // the original document currently uses the source page's format.
  3212. //
  3213. // srcPage and srcDocument represent the page's location in the original
  3214. // document, destPage and destDocument refer to the new location and
  3215. // document.  There is initially no page format for the destination page.
  3216.  
  3217. OSErr MyMoveFormatToJob(long srcPage, MyDocumentPtr srcDocument, long destPage, MyDocumentPtr destDocument)
  3218. {
  3219.     OSErr        err;
  3220.     gxFormat    srcPgFormat, destPgFormat;
  3221.     
  3222. // Get the indicated source page format.  If the reference is nil, this
  3223. // indicates that we're using the source document's default job format.
  3224. // In this case, create a destination format from the source job and
  3225. // use that.
  3226.  
  3227.     srcPgFormat = srcDocument->pageFormat[srcPage];
  3228.     
  3229.     if (srcPgFormat == nil)
  3230.         srcPgFormat = GXNewFormat(srcDocument->documentJob);
  3231.     
  3232. // Create a new destination format and copy the source format to it.  When
  3233. // done, dispose of the source format and clear out the source page's reference.
  3234.  
  3235.     destPgFormat = GXNewFormat(destDocument->documentJob);
  3236.     GXCopyFormat(srcPgFormat, destPgFormat);
  3237.     GXDisposeFormat(srcPgFormat);
  3238.     srcDocument->pageFormat[srcPage] = nil;
  3239.  
  3240. // If there were no errors, store the destination page's format reference.
  3241.  
  3242.     err = GXGetJobError(srcDocument->documentJob);
  3243.  
  3244.     if (err == noErr)
  3245.         err = GXGetJobError(destDocument->documentJob);
  3246.     
  3247.     if (err == noErr)
  3248.         destDocument->pageFormat[destPage] = destPgFormat;
  3249.  
  3250.     return err;
  3251. }
  3252.  
  3253.  
  3254. // This function takes the job associated with srcDocument and copies
  3255. // its information to destDocument.  This has the effect of copying
  3256. // the formatting and job-specific information in the source document
  3257. // to the destination document.
  3258. //
  3259. // Note that this changes any formats that the destination job
  3260. // originally had (and the old references become invalid).
  3261.  
  3262. OSErr MyCopyJobToDoc(MyDocumentPtr srcDocument, MyDocumentPtr destDocument)
  3263. {
  3264.     long    pg;
  3265.  
  3266. // Copy the job information, invalidate any old format references,
  3267. // and return any error codes.
  3268.  
  3269.     GXCopyJob(srcDocument->documentJob, destDocument->documentJob);
  3270.     
  3271.     for (pg = 1; pg <= destDocument->numPages; pg++)
  3272.         destDocument->pageFormat[pg -1] = nil;
  3273.     
  3274.     return GXGetJobError(srcDocument->documentJob);
  3275. }
  3276.  
  3277.  
  3278. // This routine stores a refCon in the job, and then retrieves it.
  3279. // we compare the 2 values to see if they're the same, which they'd
  3280. // better be.
  3281.  
  3282. OSErr MyJobRefConTest(MyDocumentPtr myDocument)
  3283. {
  3284.     Str255    pStr;
  3285.     MyDocumentPtr    beforePtr, afterPtr;
  3286.  
  3287. // Store the document pointer, set the refCon field, retrieve the refCon,
  3288. // and compare the two values.
  3289.  
  3290.     beforePtr = myDocument;
  3291.     GXSetJobRefCon(myDocument->documentJob, myDocument);
  3292.     afterPtr = GXGetJobRefCon(myDocument->documentJob);
  3293.  
  3294.     pStr[0] = sprintf(&pStr[1], "These better be the same… %p == %p?", beforePtr, afterPtr);
  3295.     MyDisplayInfo(pStr);
  3296.  
  3297.     return GXGetJobError(myDocument->documentJob);
  3298. }
  3299.  
  3300.  
  3301. // This function returns the number of pages in the indicated
  3302. // print file.
  3303.  
  3304. OSErr MyGetPrintFilePages(FSSpec *printFSSpec, long *numCopies)
  3305. {
  3306.     OSErr            err;
  3307.     gxPrintFile        thePrintFile;
  3308.     gxJob            fileJob;
  3309.  
  3310. // Create a new job for GXOpenPrintFile, then open the print file, get the
  3311. // number of pages in it, close it, and check for errors.  Finally,
  3312. // dispose of the temporary job we created and return.
  3313.  
  3314.     err = GXNewJob(&fileJob);
  3315.     
  3316.     if (err == noErr)
  3317.     {
  3318.         thePrintFile = GXOpenPrintFile(fileJob, printFSSpec, fsCurPerm);
  3319.         *numCopies = GXCountPrintFilePages(thePrintFile);
  3320.         GXClosePrintFile(thePrintFile);
  3321.  
  3322.         err = GXGetJobError(fileJob);
  3323.         GXDisposeJob(fileJob);
  3324.     }
  3325.     
  3326.     return err;
  3327. }
  3328.  
  3329.  
  3330. // This routine reads a page from a print file and returns its
  3331. // corresponding format and shape.
  3332.  
  3333. OSErr MyReadPrintFilePage(MyDocumentPtr myDocument, FSSpec *printFSSpec,
  3334.                           long whichPg, gxFormat *pgFormat, gxShape *pgShape)
  3335. {
  3336.     gxPrintFile    thePrintFile;
  3337.  
  3338. // Open the print file, read the page, close the file, and check for errors.
  3339.  
  3340.     thePrintFile = GXOpenPrintFile(myDocument->documentJob, printFSSpec, fsCurPerm);
  3341.     GXReadPrintFilePage(thePrintFile, whichPg, 1, &myDocument->documentViewPort, pgFormat, pgShape);
  3342.     GXClosePrintFile(thePrintFile);
  3343.  
  3344.     return GXGetJobError(myDocument->documentJob);
  3345. }
  3346.  
  3347.  
  3348. // This routine creates a new paperType based on the job passed.
  3349.  
  3350. OSErr MyCreatePaperType(MyDocumentPtr myDocument, Str31 paperName, gxRectangle *pageSize,
  3351.                         gxRectangle *paperSize, gxPaperType *newPaperType)
  3352. {
  3353.     *newPaperType = GXNewPaperType(myDocument->documentJob, paperName, pageSize, paperSize);
  3354.  
  3355.     return GXGetJobError(myDocument->documentJob);
  3356. }
  3357.  
  3358.  
  3359. // This is a FormatProc that looks at the mapping of each format
  3360. // it's passed.
  3361.  
  3362. pascal gxLoopStatus MyCheckMappingProc(gxFormat aFormat, void *theMapping)
  3363. {
  3364.  
  3365. // Get the mapping for the current format, check it out,
  3366. // and keep looping until all formats have been accessed.
  3367.  
  3368.     GXGetFormatMapping(aFormat, (gxMapping *) theMapping);
  3369.         
  3370.     /*    Below, your application could adjust rulers, or do some
  3371.         other useful thing based on each format's mapping.
  3372.             .
  3373.             .
  3374.             .
  3375.     */
  3376.     
  3377.     return gxKeepLooping;
  3378. }
  3379.  
  3380.  
  3381. // This routine passes the format of each page in our
  3382. // document to the "MyCheckMappingProc" FormatProc.
  3383.  
  3384. OSErr MyCheckAllFormatMappings(MyDocumentPtr myDocument)
  3385. {
  3386.     gxMapping        theMapping;
  3387.  
  3388. // Loop through each format, and check its mapping.
  3389.  
  3390.     GXForEachJobFormatDo(myDocument->documentJob, MyCheckMappingProc,
  3391.                          (void *) &theMapping);
  3392.  
  3393.     return GXGetJobError(myDocument->documentJob);
  3394. }
  3395.  
  3396.  
  3397. // This routine returns the format mapping for the indicated
  3398. // page of our document.
  3399.  
  3400. OSErr MyGetFormatMapping(MyDocumentPtr myDocument, long whichPage,
  3401.                          gxMapping *theMapping)
  3402. {
  3403.     gxFormat    pgFormat;
  3404.  
  3405. // Get the current page's format, or the job's default
  3406. // format if we've set this page's format reference to nil
  3407. // to indicate this.
  3408.  
  3409.     pgFormat = myDocument->pageFormat[whichPage -1];
  3410.     
  3411.     if (pgFormat == nil)
  3412.         pgFormat = GXGetJobFormat(myDocument->documentJob, 1);
  3413.  
  3414. // Get the format's mapping.
  3415.  
  3416.     GXGetFormatMapping(pgFormat, theMapping);
  3417.     return GXGetJobError(myDocument->documentJob);
  3418. }
  3419.  
  3420.  
  3421. // This function returns the current "copies" setting from a document's
  3422. // job.  A user sets this value via the print dialog, and it sticks to
  3423. // the job, once set.
  3424. //
  3425. // In the passed document's job, we look for a copiesTag collection
  3426. // item.  If we find one, we return the number of copies stored in it.
  3427.  
  3428. OSErr MyGetJobCopies(MyDocumentPtr myDocument, short *numCopies)
  3429. {
  3430.     OSErr            err;
  3431.     Collection        jobCollection;
  3432.     gxCopiesInfo    theCopiesInfo;
  3433.  
  3434. // Get the job collection, and then look for a copiesTag collection item.
  3435.  
  3436.     jobCollection = GXGetJobCollection(myDocument->documentJob);
  3437.  
  3438.     err = GetCollectionItem(jobCollection,
  3439.                             gxCopiesTag,
  3440.                             gxPrintingTagID,
  3441.                             nil,
  3442.                             &theCopiesInfo);
  3443.  
  3444. // If we found one, extract the number of copies and return it.
  3445.  
  3446.     if (err == noErr)
  3447.         *numCopies = theCopiesInfo.copies;
  3448.  
  3449.     return err;
  3450. }
  3451.  
  3452.  
  3453. // This function displays a dialog showing the name and type of the
  3454. // printer and printer driver that the passed document's job will
  3455. // print to.
  3456.  
  3457. OSErr MyShowJobPrinterInfo(MyDocumentPtr myDocument)
  3458. {
  3459.     OSErr        err;
  3460.     short        itemHit;
  3461.     DialogPtr    msgDlog;
  3462.     GrafPtr        oldPort;
  3463.     gxPrinter    jobPrinter;
  3464.     OSType        deviceOSType, driverOSType;
  3465.     Str255        deviceName, deviceType, driverName, driverType;
  3466.  
  3467. // Load our info dialog.
  3468.  
  3469.     GetPort(&oldPort);
  3470.     msgDlog = GetNewDialog(r_printerInfoDlog, nil, (WindowPtr) -1);
  3471.     err = ResError();
  3472.  
  3473. // Get the current printer for this job.  From that, get the
  3474. // current device name, driver name, device type, and driver type.
  3475.  
  3476.     if (err == noErr)
  3477.     {
  3478.         jobPrinter = GXGetJobOutputPrinter(myDocument->documentJob);
  3479.         
  3480.         GXGetPrinterName(jobPrinter, deviceName);
  3481.         GXGetPrinterDriverName(jobPrinter, driverName);
  3482.         deviceOSType = GXGetPrinterType(jobPrinter);
  3483.         driverOSType = GXGetPrinterDriverType(jobPrinter);
  3484.  
  3485.         err = GXGetJobError(myDocument->documentJob);
  3486.  
  3487. // Since the device and driver type are OSTypes, we need to convert them to
  3488. // Pascal strings for ParamText.  That's what these two lines do.
  3489.     
  3490.         if (err == noErr)
  3491.         {
  3492.             BlockMove(&deviceOSType, &deviceType[1], (long) (deviceType[0] = 4));
  3493.             BlockMove(&driverOSType, &driverType[1], (long) (driverType[0] = 4));
  3494.  
  3495. // Use ParamText to pass the data to our dialog, then display our dialog
  3496. // and set our current port to it.
  3497.     
  3498.             ParamText(deviceName, driverName, deviceType, driverType);
  3499.             SetPort(msgDlog);
  3500.             MyPositionWindow(msgDlog, true, n_dlogLevel);
  3501.  
  3502. // Loop until the user clicks "OK", then reset ParamText and dispose
  3503. // of our dialog.
  3504.     
  3505.             do
  3506.             {
  3507.                 ModalDialog(nil, &itemHit);
  3508.             }
  3509.             while (itemHit != kOKButton);
  3510.     
  3511.             ParamText("\p", "\p", "\p", "\p");
  3512.             DisposDialog(msgDlog);
  3513.         }
  3514.     }
  3515.  
  3516.     SetPort(oldPort);
  3517.     return err;
  3518. }
  3519.  
  3520.  
  3521. // This function displays a dialog showing the highest
  3522. // "square" resolutions for the job's formatting and
  3523. // output printers.
  3524.  
  3525. void MyShowJobPrinterResolution(MyDocumentPtr myDocument)
  3526. {
  3527.     fixed    hFRes, vFRes, hORes, vORes;
  3528.     Str255    pStr;
  3529.     
  3530.     MyGetFormatDeviceResolution(myDocument->documentJob, &hFRes, &vFRes);
  3531.     MyGetOutputDeviceResolution(myDocument->documentJob, &hORes, &vORes);
  3532.  
  3533.     pStr[0] = sprintf(&pStr[1], "%s%d%s%d%s",
  3534.                       "Formatting printer's res. = ",
  3535.                       FixedToInt(hFRes),
  3536.                       " dpi.\n Output printer's res. = ",
  3537.                       FixedToInt(hORes),
  3538.                       " dpi.");
  3539.  
  3540.     MyDisplayInfo(pStr);
  3541. }
  3542.  
  3543.  
  3544. // This routine returns the highest square resolution of
  3545. // the formatting printer for the specified job.
  3546.  
  3547. void MyGetFormatDeviceResolution(gxJob whichJob, fixed *hRes, fixed *vRes)
  3548. {
  3549.     gxPrinter        formatPrinter;
  3550.     long            numViewDevices, idx;
  3551.     gxViewDevice    printerVDev;
  3552.     gxMapping        vDevMapping;
  3553.  
  3554. /*
  3555.     Get the formatting printer, and the number of
  3556.     viewdevices for that printer.
  3557. */
  3558.  
  3559.     *hRes = 0;
  3560.     *vRes = 0;
  3561.  
  3562.     formatPrinter = GXGetJobFormattingPrinter(whichJob);
  3563.     numViewDevices = GXCountPrinterViewDevices(formatPrinter);
  3564.  
  3565. /*
  3566.     Loop through the viewdevices that this printer supports,
  3567.     and get the highest "square" (vertical == horizontal)
  3568.     resolution.
  3569. */
  3570.  
  3571.     for (idx = 1; idx <= numViewDevices; idx++)
  3572.     {
  3573.         printerVDev = GXGetPrinterViewDevice(formatPrinter, idx);
  3574.         GXGetViewDeviceMapping(printerVDev, &vDevMapping);
  3575.  
  3576.         if ((vDevMapping.map[0][0] == vDevMapping.map[1][1]) &&
  3577.             (vDevMapping.map[0][0] > *hRes) && (vDevMapping.map[1][1] > *vRes))
  3578.         {
  3579.             *hRes = vDevMapping.map[0][0];
  3580.             *vRes = vDevMapping.map[1][1];
  3581.         }
  3582.     }
  3583.  
  3584. /*
  3585.     We have only scaling factors (multiples of 72 dpi),
  3586.     so convert them into resolutions.
  3587. */
  3588.  
  3589.     *hRes = FixedMultiply(*hRes, ff(72));
  3590.     *vRes = FixedMultiply(*vRes, ff(72));
  3591. }
  3592.  
  3593.  
  3594. // This routine returns the highest square resolution of
  3595. // the output printer for the specified job.
  3596.  
  3597. void MyGetOutputDeviceResolution(gxJob whichJob, fixed *hRes, fixed *vRes)
  3598. {
  3599.     gxPrinter        outputPrinter;
  3600.     long            numViewDevices, idx;
  3601.     gxViewDevice    printerVDev;
  3602.     gxMapping        vDevMapping;
  3603.  
  3604. /*
  3605.     Get the output printer, and the number of
  3606.     viewdevices for that printer.
  3607. */
  3608.  
  3609.     *hRes = 0;
  3610.     *vRes = 0;
  3611.  
  3612.     outputPrinter = GXGetJobOutputPrinter(whichJob);
  3613.     numViewDevices = GXCountPrinterViewDevices(outputPrinter);
  3614.  
  3615. /*
  3616.     Loop through the viewdevices that this printer supports,
  3617.     and get the highest "square" (vertical == horizontal)
  3618.     resolution.
  3619. */
  3620.  
  3621.     for (idx = 1; idx <= numViewDevices; idx++)
  3622.     {
  3623.         printerVDev = GXGetPrinterViewDevice(outputPrinter, idx);
  3624.         GXGetViewDeviceMapping(printerVDev, &vDevMapping);
  3625.  
  3626.         if ((vDevMapping.map[0][0] == vDevMapping.map[1][1]) &&
  3627.             (vDevMapping.map[0][0] > *hRes) && (vDevMapping.map[1][1] > *vRes))
  3628.         {
  3629.             *hRes = vDevMapping.map[0][0];
  3630.             *vRes = vDevMapping.map[1][1];
  3631.         }
  3632.     }
  3633.  
  3634. /*
  3635.     We have only scaling factors (multiples of 72 dpi),
  3636.     so convert them into resolutions.
  3637. */
  3638.  
  3639.     *hRes = FixedMultiply(*hRes, ff(72));
  3640.     *vRes = FixedMultiply(*vRes, ff(72));
  3641. }
  3642.  
  3643.  
  3644. // This routine returns the name of the paperType
  3645. // used by the current page of a document.
  3646.  
  3647. OSErr MyGetPaperTypeName(MyDocumentPtr myDocument, Str255 paperTypeName)
  3648. {
  3649.     gxPaperType        thePaperType;
  3650.     long            curPage;
  3651.     gxFormat        pgFormat;
  3652.  
  3653. // Get the format for the current page.  If the format is nil,
  3654. // this indicates that we should use the job's default format.
  3655.  
  3656.     curPage = myDocument->curPage;
  3657.     pgFormat = myDocument->pageFormat[curPage -1];
  3658.     
  3659.     if (pgFormat == nil)
  3660.         pgFormat = GXGetJobFormat(myDocument->documentJob, 1);
  3661.  
  3662. // Get the format's paperType and the paperType's name.
  3663.  
  3664.     thePaperType = GXGetFormatPaperType(pgFormat);
  3665.     GXGetPaperTypeName(thePaperType, paperTypeName);
  3666.  
  3667.     return GXGetJobError(myDocument->documentJob);
  3668. }
  3669.  
  3670.  
  3671. // This routine returns the dimensions of the page and
  3672. // paper areas of the paperType used by the current
  3673. // page of a document.
  3674.  
  3675. OSErr MyGetPaperTypeDims(MyDocumentPtr myDocument,
  3676.                          gxRectangle *pageBounds, gxRectangle *paperBounds)
  3677. {
  3678.     gxPaperType        thePaperType;
  3679.     long            curPage;
  3680.     gxFormat        pgFormat;
  3681.  
  3682. // Get the format for the current page.  If the format is nil,
  3683. // this indicates that we should use the job's default format.
  3684.  
  3685.     curPage = myDocument->curPage;
  3686.     pgFormat = myDocument->pageFormat[curPage -1];
  3687.     
  3688.     if (pgFormat == nil)
  3689.         pgFormat = GXGetJobFormat(myDocument->documentJob, 1);
  3690.  
  3691. // Get the format's paperType and the paperType's bounds.
  3692. // Note that you could also use GXGetFormatDimensions to do this.
  3693.  
  3694.     thePaperType = GXGetFormatPaperType(pgFormat);
  3695.     GXGetPaperTypeDimensions(thePaperType, pageBounds, paperBounds);
  3696.  
  3697.     return GXGetJobError(myDocument->documentJob);
  3698. }
  3699.  
  3700.  
  3701. // This routine displays information about every
  3702. // paperType in a document's job which can be
  3703. // used on the document's current output device.
  3704.  
  3705. OSErr MyListAllPaperTypes(MyDocumentPtr myDocument)
  3706. {
  3707.     GXForEachJobPaperTypeDo(myDocument->documentJob, (gxPaperTypeProc) MyPTInfoProc, nil, false);
  3708.     return GXGetJobError(myDocument->documentJob);
  3709. }
  3710.  
  3711.  
  3712. // This routine is a paperType procedure.  It displays
  3713. // the name and dimensions of the paperType passed.
  3714.  
  3715. pascal gxLoopStatus MyPTInfoProc(gxPaperType thePaperType, void *refCon)
  3716. {
  3717.     gxRectangle        pageBounds, paperBounds;
  3718.     Str255            pStr1, pStr2;
  3719.     char            *pStr1Ptr;
  3720.  
  3721. #pragma unused(refCon);
  3722.  
  3723. // Get the paperType's name.
  3724.  
  3725.     GXGetPaperTypeName(thePaperType, pStr1);
  3726.     pStr1[pStr1[pStr1[0]]] = 0;
  3727.     pStr1Ptr = &pStr1[1];
  3728.  
  3729.  
  3730. // Get the paperType's dimensions.
  3731.  
  3732.     GXGetPaperTypeDimensions(thePaperType, &pageBounds, &paperBounds);
  3733.     pStr2[0] = sprintf(&pStr2[1], "%s: %s %i, %i, %i, %i.  %s %i, %i, %i, %i.",
  3734.                       pStr1Ptr,
  3735.                       "\npageBounds =",
  3736.                       pageBounds.top >>16,
  3737.                       pageBounds.left >>16,
  3738.                       pageBounds.bottom >>16,
  3739.                       pageBounds.right >>16,
  3740.                       "\npaperBounds =",
  3741.                       paperBounds.top >>16,
  3742.                       paperBounds.left >>16,
  3743.                       paperBounds.bottom >>16,
  3744.                       paperBounds.right >>16);
  3745.  
  3746.     MyDisplayInfo(pStr2);
  3747.  
  3748. // Keep looping until all papertypes have been accessed.
  3749.  
  3750.     return gxKeepLooping;
  3751. }
  3752.  
  3753.  
  3754. // This routine displays an "About…" dialog.
  3755.  
  3756. void MyDisplayAbout()
  3757. {
  3758.     short        oldResFile, theItem;
  3759.     DialogPtr    theDialog;
  3760.     GrafPtr        oldPort;
  3761.  
  3762.     oldResFile = CurResFile();
  3763.     UseResFile(gAppResRefNum);
  3764.  
  3765.     theDialog = GetNewDialog(r_aboutDlog, nil, (WindowPtr) -1);
  3766.     
  3767.     if (theDialog)
  3768.     {
  3769.         GetPort(&oldPort);
  3770.         SetPort(theDialog);
  3771.         MyPositionWindow(theDialog, true, n_dlogLevel);
  3772.     
  3773.         do
  3774.         {
  3775.             ModalDialog(nil, &theItem);
  3776.         }
  3777.         while (theItem != kOKButton);
  3778.  
  3779.         SetPort(oldPort);
  3780.         DisposeDialog(theDialog);
  3781.     }
  3782.     
  3783.     UseResFile(oldResFile);
  3784. }
  3785.  
  3786.  
  3787. // This routine displays a dialog with a message and an "OK"
  3788. // button in it.  When the user clicks OK, the dialog is disposed.
  3789. // We use this routine to show information to the user using a
  3790. // means more friendly than the DebugStr calls we used to make.
  3791.  
  3792. void MyDisplayInfo(Str255 msg)
  3793. {
  3794.     short        oldResFile, itemType, theItem;
  3795.     Handle        itemHdl;
  3796.     Rect        itemRect;
  3797.     DialogPtr    theDialog;
  3798.     GrafPtr        oldPort;
  3799.  
  3800.     oldResFile = CurResFile();
  3801.     UseResFile(gAppResRefNum);
  3802.  
  3803.     theDialog = GetNewDialog(r_msgDlog, nil, (WindowPtr) -1);
  3804.     
  3805.     if (theDialog)
  3806.     {
  3807.         GetPort(&oldPort);
  3808.         SetPort(theDialog);
  3809.         
  3810.         GetDItem(theDialog, d_msgItem, &itemType, &itemHdl, &itemRect);
  3811.         SetIText(itemHdl, msg);
  3812.         MyPositionWindow(theDialog, true, n_dlogLevel);
  3813.     
  3814.         do
  3815.         {
  3816.             ModalDialog(nil, &theItem);
  3817.         }
  3818.         while (theItem != kOKButton);
  3819.  
  3820.         SetPort(oldPort);
  3821.         DisposeDialog(theDialog);
  3822.     }
  3823.     
  3824.     UseResFile(oldResFile);
  3825. }
  3826.  
  3827.  
  3828. // This routine positions a window on the screen, centered
  3829. // horizontally and positioned vertPercent down the current
  3830. // screen.  If showIt is true, we make the window visible,
  3831. // otherwise we hide it.
  3832.  
  3833. void MyPositionWindow(WindowPtr windPtr, Boolean showIt, float vertPercent)
  3834. {
  3835.     Rect        devRect;
  3836.     short        amtFromTop, windWidth, deviceWidth;
  3837.     GDHandle    curGDH;
  3838.  
  3839. // Get the current GDevice and use its bounds to calculate where we
  3840. // should move the window to.
  3841.  
  3842.     if (windPtr != nil)
  3843.     {
  3844.         curGDH = GetGDevice();
  3845.         devRect = (*curGDH)->gdRect;
  3846.  
  3847.         amtFromTop = (devRect.bottom - devRect.top +1) * vertPercent;
  3848.         windWidth = windPtr->portRect.right - windPtr->portRect.left +1;
  3849.         deviceWidth = devRect.right - devRect.left +1;
  3850.  
  3851.  
  3852. // Hide the window, move it, and (if we're supposed to) show it again.
  3853.  
  3854.         ShowHide(windPtr, false);
  3855.         MoveWindow(windPtr, devRect.left + (deviceWidth /2 - windWidth /2), devRect.top + amtFromTop, true);
  3856.         if (showIt) ShowHide(windPtr, true);
  3857.     }
  3858. }
  3859.  
  3860.  
  3861. //------  main  -------------------------------------------------------------
  3862.  
  3863. main()
  3864. {
  3865.     OSErr                err;
  3866.     gxGraphicsClient    client;
  3867.     short                 i;
  3868.  
  3869.     MaxApplZone();
  3870.     for (i=1; i<=4; i++) MoreMasters();
  3871.  
  3872.     client = GXNewGraphicsClient(nil, 400 * 1024, nil);
  3873.     err = MyInitializeApp();
  3874.  
  3875.     GXEnterGraphics();
  3876.     err = GXInitPrinting();
  3877.  
  3878.     if (!err) MyEventLoop();
  3879.         
  3880.     err = GXExitPrinting();
  3881.     GXExitGraphics();
  3882.     GXDisposeGraphicsClient(client);
  3883. }
  3884.